MMM MMM GGGGGGGGGGGG 
MMM MMM GGGGGGGGG6GGG 
MMM MMM GGGGGGGGG6G6GG 
MMMMMM = MMMMMM =6GGG 

MMMMMM = MMMMMM =6GGG 

MMAMMM =6MMMMMM =6GGG 

MMM 6 MMM = =OMMM «GGG 

MMM = 6MMM =O MMM «GGG 

MAM = 60OMMM = OMMM «GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG G6GGGGGGGG 
MMM MMM GGG 666666666 
MMM MMM GGG 6GGGGGG6GG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 


C 12 


AAI I tH A tS 
AAA tt tt HH tS tH 
tt tt a St SH Se 


L 

LLELLLELLLLLLLLL 
LLLLLLLLLLLLLLL 
LELLLLLLLLLLLLL 


FE a ee a a el el el el el 


SN 
Ro ono 


=7 
ne 


**F ILE**1D**SMGMISC 


wv Vu 
Vu ev 
(=TS) Vu 
Vu vv 
vv ev 
vv vr 
vw ve 
Vv vv 


VVVVUYYVYVYUUYUY 
VYVYVUYUYUYYUYY 


nw WMnunw 
mn NNNM 
nw nn nw 
nn nw nw 
nw mn nn 
nw nn nw 
mw nn nn 
mn nn nw 
MMMM wn 
MMMM nm 
— —“—— 
—_—_) —e 


Od ds ad Os ad Ot Oe Ot Oe Ot Ot 


ont “oe 
—- te 
== SSSSSSSESE 
z= (=.= = = SS SS 


oo 


GG 
GG 


GGGGGGG 
GGGGGGG 
GG GGGGGG 
GG GG6GGGG 


nn YNnNM 
nw YONNNM 
nn nn nn 
nn nn an 
nw ann nn 
nn nw ann 
nn nn nn 
nn nn nw 
YNWNN nn 
YNNM nn 


“wn Munn 
“wn Munn 
“ww nw 
nn “wn 
wn nw 
“wn “own 
vw wn 
mw wn 
munnnm 
MNnWn 


LLLLLLLLLL 
LLLLLLLLLL 


DWONAVE WN OO ODNOUES WN" OOONOUS WN 


RoroRononononononony 2 2 3 


SMGSMISC = Miscellaneous routines for screen m 1b-s Sep-1984 AX-11 V4.0-742 Pa 1 
9 2 8een 1 8Rs 24:08:88 = HeNGa Te se Ssncml se asec) 9 4) 


f - Miscellaneous routines for screen mgmt‘ 
grant = "1-012" ! EDIT: STAN1013 


— 


ZTITLE ‘SMGSMI 
MODULE SMG$MIS 


BEGIN 


See RRA ERA AA AAA AAA AAA REA ERATE ETAT AEE AERA eARe Ae eee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


* 
& 
a 
® 
® 
, ® 
is THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is YUN yAGCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTUARE OR “ANY. OTHER = 
it COPIES THEREOF NAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. ‘ 
® 
a 
ar 
® 
® 
® 
® 
® 
® 
® 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i oomeokat ihn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONS 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
't SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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14-Sep-1 SMGRTL.SRCJSMGMISC.B32;1 (2) 


i FACILITY: Screen Management 
i ABSTRACT: 


eb module contains miscellaneous routines 
having to do with asynchronous terminal operation. 


i ENVIRONMENT: User mode, Shared Library routines. 
i AUTHOR: Stanley Rabinowitz, CREATION DATE: 3-May-1983 
i MODIFIED BY: 


! 1-013 Stan oy 0 9c Remove informational errors. 
12 Stan 4-Apr-1984 Add error message for non-ANSI terminal. 
: Tighten up error chock ing in unsolicted input. 
! 1-011 Stan 18-Mar-1984 Allow asking terminal for physical cursor location 
: Rename some routines. 
! 1-010 Stan 17-Mar-1984 More fixes to documentation 
ris bug in initializing mailbox. 


! 1-009 Stan 1~f£eb-1984 Fix documentation 
-008 Stan 7-Nov-198 Unsolicited input. 
-007 Stan 7-Aup-198 Get background color 
-006 Stan 17-Aug-19 Add items to GET oPASTEBOARD ATTRIBUTES. 
-005 Stan 7-Jul- 138 Call user's 7 foutine. 
-004 Stan 13-Jun-1983 Finish mailbox stuff. 
-003 Stan 2-Jun-1983 Add SMGSGET PAS TEBOARD ATTRIBUTES. 
-002 Stan 1-Jun-1983 Set characteristics 
-001 Stan 3-May-1983 Original version. 
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1 XSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


Cj 


oO 
o 


Wr 


FORWARD ROUTINE 


SMGS$SET 
SMGSSET 


N Enable out-of-band ASTs 

Enable trapping of broadcast messages 
Enable unsolicited input 

Gets a broadcast message 

Get information about pesyescere 

Get physical cursor position 


BAND_ASTS, 
AST_TRAPPING, 
LICITED_INPUT, 

§ SAGE, 
OARD_ATTRIBUTES, 
AL_CORSOR, 


ooooo 
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SSN NIN SIO AAA AAO O 


CONAUES WO OONAUE WN O OONOUS 
mc nome 


SMG$$O 


Generic ouc-of-band AST handler 
SMGS$$S 


AND_HANDLER 
_CHARACTERISTICS, | Set characteristics 
! in a modular fashion 


MAILBOX_AST_ROUTINE, 
INITIALIZE MAILBOX, 
CHAR_EXIT_RANDLER; 


Handles messages to our mailbox 
Sets up mailbox and queues 
Handler to reset terminal 
characteristics 
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SWITCHES: 
In the include files. 


SooooooooooooSo 


LINKAGES: 
In the include files. 


INCLUDE FILES: 


100 REQUIRE ‘SRC$:SMGPROLOG'; 
REQUIRE *RTLIN:STRLNK'; 


i MACROS: 


defines psects, macros 
structures and terminal defs 
Linkages 
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EQUATED SYMBOLS: 


LITERAL 


SMG$S_CHAR_EXIT_BLOCK = 94; ! lock used by 
NAL CHARACTERISTICS 
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ZSBITL ‘SMGSGET pas epoane ATTRIBUTES' 
GLOBAL ROUTINE SMGSGET_PASTEBOARD ATTRIBUTES ( 
PASTEBOARD_ID,P_PIT,P_PIT_SIZE) = 


144 
} FUNCTIONAL DESCRIPTION: 


This routine gets information about a pasteboard and 
leaves it in a user-supplied area (the PIT), the pasteboard 


information table. 
CALLING SEQUENCE: 


RET_STATUS.wlc.v = SMGSGET_PASTEBOARD_ATTRIBUTES ( 
PASTEBOARD_ID-rl.r, 


i 

' 

i 

! 

' 

i 

' 

i 

! P_PIT.wab.r, 

P_PIT_SIZE.rl.r) 

FORMAL PARAMETERS: 

PASTEBOARD_ID.rl.r Address of pasteboard id 

i P_PIT.wab.r Address of a pasteboard information table. 

! This is a byte block whose size and field 

! references are described in SMGDEF.SDL. 

! It is the caller's reppene ter lity to allocate 
! the correct size block and pass it's address 
to this routine. 

i P_PIT_SIZE.ril.r Address of a longword containing the size of 
! the PIT (in bytes). For now, this size must 
! be exactly correct. This will allow the 
structure to grow in future releases. 
IMPLICIT INPUTS: 

contents of PBCB 

IMPLICIT OUTPUTS: 

PIT gets filled in. 

COMPLETION STATUS: 

i SMG$_INVARG PIT is the wrong size 

SS$_RORMAL Normal successful completion 

SIDE EFFECTS: 

NONE 
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48] 3 BEGIN : 
4 LOCAL ; 
484 ‘ 
485 STATUS, ‘ 
4 $ WCB : REF BLOCK BYTE) ! Window control block . 
? f PBCB : REF BLOCKL,BYTEJ; ! Pasteboard control block ° 
rt 8 BIND : 
491 PIT = .P_PIT : BLOCKC,BYTEJ, : pasteboard info block ; 
136 PIT_SIZE = .P_PIT_SIZE; : Size of user's PIT ; 
Beg EXTERNAL LITERAL : 
bree SMG$_INVARG; ! PIT is the wrong size 

Beas EXTERNAL ROUTINE 

0500 SMGSF IND_CURSOR_DISPLAY; 


STATUS=SMGS$F IND_CURSOR_DISPLAY(.PASTEBOARD_ID,PITCSMG$L_CURSOR_DIDJ); 
IF NOT .STATUS THEN RETURN .STATUS; 


RETURN SS$_NORMAL 


Moroforory 
Boe 
Noo 


-TITLE SMGSMISC SMGSMISC - Miscellaneous routines for 
screen mg 

-IDENT \1-012\ 

J 
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1-012 SMGSGET_PASTEBOARD_ATTRIBUTES 9} gep 1984 9}: 83; 8 SMGRTL.SRC Shami se Bsoe1 at (6) 

: re 0501 SSMGSVALIDATE_ARGCOUNT (3,3); ‘ 
of § $SMGSGET_PBCB(.PASTEBOARD_1D,PBCB); ; 
; aa 5 '+ ; 
: I : $ ; Make sure that the PIT is the correct size. ; 
: 508 2. F 
3 2g 509 IF_.PIT_SIZE NEG SMGS$S “er INFO_BLOCK ; 
; ze 219 THEN “RETURN SMG$_INVA : 
56 51g 2 WCB=.PBCBLPBCB_A_WCB); ; 
; 258 514 2 14 ; 
; 259 515 ! Move arguments from the PBCB to the PIT. ; 
: 260 516 le ; 
; 261 0517 3 
: $06 0518 PITCSMGSL “PE CHARS = .PBCBCPBCB_L_DEVCHAR]; : 
; 26 0519 PITCSMG$L_DEVDEPEND) = .PBCB PBCB-L-DEVDEPEND): ‘ 
3 264 0520 2 PITCSMGSL— ~DEVDEPEND2) = .PBCBLPBCB_L-DEVDEPEND2); : 
; 265 0521 PITLSMG$B_DEVCLASS = .PBCBLPSCB_B_CLASS); ; 
5 566 05 ; PITCSMG$B_SMG_ bEVTYPE = .PBCB PBCB-B-DEVTYPE); ‘ 
; 67 05 PITCSMG$B- PHY DEVTYPE = .PBCBLPBCB_B_PHY_ DEV “TyPe); ° 
; 268 0524 2 PITESMG$B_ROWS) = .PBCBCPBCB_B_ROWS); : 
: 269 0525 2 PITCSMG$W-WIDTH) = .PBCBLPBCB_W-WIDTH); : 
: 270 0526 2 PITESMG$B_PARITY = .PBCBEPBCB-B-PARITY; : 
> 271 0527 2 PITESMG$W_SPEED] = .PBCBCPBCB_W_SPEEDI; : 
Ps 7 0528 PITLSMG$W_FIL = .PBCBCPBCB_W_FILLJ; : 
; 18, Be 3 PITCSMG$B_ COLOR) = .PBCBCPBCB_B “BACKGROUND. COLOR]; : 
3 275 983) 14 F 
3 er b29¢ i Move arguments from the WCB into the PIT. : 
i BE EE : 
; 79 0535 PITCSMG$W_CURSOR_ROW) = UcBrUcR” W_CURR_CUR_ROW]); : 
3 sev b236 PITCSMG$W_CURSOR_COLJ = .WCBCWCB_W-CURR_CUR_COLJ; : 
; 28 $336 14 : 
; 28 539 i Find out which virtual display the cursor is in and : 
: «284 540 ' Leave that in the PIT. ; 
; 285 541 !- : 
; 286 286 : 
; 287 054 : 
3 544 . 
: st : 
F 229 : 
; 0548 1 : 


.EXTRN SMG$_INVARG 
“EXTRN SMG$~WRONUMARG 


cine CURSOR_DISPLAY 
-EXTRN PBD *° COUNT. PAD_ 


$ 5 TNVPAS Td 


sngsaisc SMGSMISC - 
1-012 SMGSGET_PAS 


000000006 
08 000000006 


COMLlWwOoO "more 


000000006 


a3 


50 000000006 


51 
00 


i 000000006 


51 
20 


50 000000006 
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~EXTRN PBD_V_PB_AVAIL 


_SMGSCODE,NOWRT, SHR, PIC,2 

SMGSGET PASTEBOARD ATTRIBUTES, Save R2 
(KP), #3 

#SMG$_WRONUMARG, RO 

@PASTEBOARD_ID, R1 

R1, PBD_L_COUNT 

a, PBD_V_PB_AVAIL 

#SMG$_INVPAS~ID, 46° 


PBD A_PBCBCR1], PBCB 
P_PIT_SIZE, #32 


#SMG$_INVARG, RO 
CB), WCB 
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ZSBTTL "SMGSGET_PHYSICAL_CURSOR' 
GLOBAL ROUTINE SMGSGET PAYSICAL_CURSOR ( 
PASTEBOARD_1D,P_ROW,P_COL,P_PHYS_ROW,P_PHYS_COL) = 


14+ 
FUNCTIONAL DESCRIPTION: 


This routine returns information about where 

the physical cursor is on the pasteboard. 

n case SMG is unsure of the cursor location (for example 
f the pasteboard is created without clearing the screen), 
there is also an option to inquire of the terminal 

finding out where it thinks the cursor is. 


CALLING SEQUENCE: 


RET_STATUS.wilc.v = SMGSGET_PHYSICAL_CURSOR ( 
PASTEBOARD_TD.rl.r, 
»P_ROW.wl.r 
»P_COL.wl.r 
oP aDHYS_AON ul rd 
»P_PHYS_COL.wl.rJ) 
FORMAL PARAMETERS: 


PASTEBOARD_ID.rl.r Address of pasteboard id 
P_ROW.wi.r Gets SMG's idea of what row cursor is in 
Q means it does not know. 
P_COL.wl.r Gets SMG's idea of what col cursor is in 
0 means it does not know. 
P_PHYS_ROW.wil.r Gets terminal's idea of what row cursor is in 
P_PHYS_COL.wl.r Gets terminal's idea of what col cursor is in 


f this and the previous arguments are omitted, 
then no inquiry to the terminal is made 
and no typeahead is purged. 
IMPLICIT INPUTS: 
contents of PBCB 
IMPLICIT OUTPUTS: 
SMG's idea of physical cursor location may get updated 
COMPLETION STATUS: 
SMG$_TRMNOTANS Terminal is not ansi 
$S$_NORMAL 


$_Ror Normal successful completion 
(includes case where position is not known) 


MEUM $0 OONOULS WN “OC OONOULS WN OOO 


WN —O0ea~ 


SIDE EFFECTS: 
Type ahead may be cancelled. 
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i 382 gor 1 i-- 
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; 12 SMGSCET PHYSICAL. CURSOR 8 19-808- 1382 93:93:28 SMGRTL.SRCISMGMISC.B3271 . (8) in 
3 4 4 BEGIN 
3 5 6 
; : 219 LOCAL 
3 8 \ STATUS, 
: 1 wcB : REF aettige He . ! Window control block 
; re pele PBCB : REF BLOCKC,BYTE); ! Pasteboard control block 
3 66 Bes BUILTIN 
; 1 
; 364 618 NULLPARAMETER; 
; 365 619 
5 $1 620 BIND 
3; 0621 
; 368 Be ; ROW = .P_ROW, 
; 369 6 COL = .P"COL 
: 370 0624 PHYS_ROW = [P™PHYS_ROW, 
3 4 be ; PHYS_COL = .P_PHYS_COL; 
; 7 0627 EXTERNAL LITERAL 
3 «4374 0628 
3 37s 0629 SMG$_TRMNOTANS, ! Terminal is not ANSI 
; 376 0630 SMG$_INVARG; 
5 Sir ott 
: 5378 06 ¢ OWN 
3 79 bes 
3 $B ote INQUIRY : VECTORC4,BYTE) INITIAL( BYTE(27,'C6n") ); 
; 382 0636 ! ANSI Cursor position report 
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i012 SMGSGET_PHYSICAL_CURSOR 7 er8eb-188e 3:09:55 — UmarTe sRedsmamise ase. teat 


4 7 2 SSMGSVALIDATE_ARGCOUNT(1,5); | 
| 
| 

| 


SSMGSGET_PBCB(.PASTEBOARD_ID,PBCB); 


4 
: WCB=.PBCBCPBCB_A_WCB); 
8 64 
90 64 '¢ 
39 o Move physical cursor row and column from the WCB to the user, if requested. 
9 . 
94 IF NOT NULLPARAMETER(P_ROW) 
95 H ROW = .WCBLWCB_W_ CURR_CUR_}0W); 
a8 IF NOT NULLPARAMETER(P_COL) 
9 THEN COL = .WCBLWCB_W_CURR_CUR_COL]; 
4 ; If the user requested that we interrogate the terminal, then go do that now. 
0 . 
68 IF NOT NULLPARAMETER(P_PHYS_ROW) 
04 OR NOT NULLPARAMETER(P_PHYS_ COL) 
05 THEN BEGIN ! Interrogate terminal 
LOCAL 

PTR, 

SEQ : REF VECTORC,BYTE), 

OW 


COL“START, 

COL“LEN 

RESP_BUFFER V 
10SB : V 
TERM_ROW : VOLATILE 
TERM~COL : VOLATILE 


CTORE snesx LONGEST. SEQUENCE .BYTEJ, 
CTORC4,wORBI, 


E 
E 
° ! physical row as reported by terminal 
3 ! physical col as reported by terminal 


+ 
! Check that the terminal is really ANSI and that it supports 
the cursor position report. 


EVDEPEND2] : $BBLOCK; 
CRT) THEN RETURN SMG$_TRMNOTANS 


' 

® | 
' Issue a Q10 to the terminal, sending it the standard 
: ANSI sequence asking for the row and column of the cursor, 
and getting back a respnse in RESP_BUFFER. 
Purge type~ahead first, and allow Ehe read to time out. 


AOORRURUUNNUNUN =a aa BOOS 
WR —OOOWOUVE WN "OC ODONOUE WN" O0OOn 


STATUS=$Q]0W( FUNC = 10$_READPROMPT OR IOSM_TIMED OR 
1O$A_PURG OR_IOSM~ESCAPE, | 

CHAN -PBCBCPBCB_W_CHANJ, 

EFN = .PBCBLPBCB-B-EFN), 


SEE 


PUIww 
fools) 
vvvvD 


ye oe ot at oF ot of ot ot nt et at et te ee 


sngenisc 


Be Be Se Se Se Se Be Se Se Fe Se Se Se Se Se Fe Se Se Ge Ge Ge Ge Ge Fe Fe Ge Ge Ge Ge Ge Ge Se Se Ge Ge Fe Se FHS Ss Ge Se Se Se Ge FSH Se Se SHS ee Se Oe Se Se we 


| al el el ek el al al a a ed 
ISVS? 
COOWONOUES WO 


QUmnwmnwnr 


Po oe ot ot ot ot ot ot ot at ot ot a ae 


SSBLEARAN SS SHVSEARAN=S 


ener 


vuvv0vU 


MGSM1 {i 
Snesce PH ’s 


COOCSOSOCOCOOCOOCOOCOOCOCOOCOCOOOCOCOCOSOOOOCOOOOOOOOOOOOOOoO: 


SN SNS NNO 


WAAAI NAA AAAI IP POPONUNINIPNONONP 


% 


o 
OOO 


at ot tt 2 I I OOOOO 


OOONO VL WN $$ O OONOUE WN SO OONO EWN O 


PUN" OOONOULS WN — 


NNN 
Penner 


are the row an column 4, decimal-coded A 
Start by pointin 


g past the escape and AY 


it. gies 
colt Leneous routines for screen m gep 5: AX-11 Bliss-32 V4.0-742 
L.CURSOR 9 ~Sep-1 71382 3: 83 38 SMGRTL” SR RCISMGMISC.B32;1 
aos 18 ay FER ! get l 
= ! gets re 
P = FALLOCAT 1ONCRESP BUFFER), . sons 
Pp = 4, ! wait 4 seconds 
P = one ! inquire sequence 
P6 = ZALLOCATION(INQUIRY) ) 
IF .STATUS THEN STATUS=.10SB(0); 
IF NOT .STATUS THEN RETURN .STATUS; 
'+ 
i If the read succeeds, then I0SB(3] has the number of 
enanes ers in the Secepe sequence read, and 
i TOSB petnte to the eginning of this escape sequence. 
The format of the answer is ‘$C rr; ¢ y* where r and c 
i 
ie 


“and then parse a number. 


ROW_START=RESP_BUFFERC.10SB8(1)+2); 


tiger ee waht 10SBC(3)-1,.ROW_START,';'); 
IF ee. AIL(TPTR) 


AE TORN 0; 

Rou" LEN=.PTR=.ROW_START; 
COL_START=.PTR+1 
PTR=CHSFIND_CH(. iosec32- -1,.COL_START,'R'); 
IF CHSFAIL(CPTR) 

THEN RETURN 0; 
COL_LEN=.PTR-.COL_START; 
4 
Convert the decimal-coded ASCII to a number. 


PHYS, »ROW_ TART; 


OW= 
INCR™I FROM 0 TO .ROW LEN-1 
PHYS_ROW=. -PHYS_ Rows10¢. SEQC.13-%C'0'; 


es" iy . Ypes 


TNCR™ i "FROA 0 TO .COL_LEN-1 DO 
PHYS_COL=. -PHYS_COL*10+.SEQC.1]-%C'0"; 


'¢ 
- Pass the row and column back to the user, if requested. 


IF NOT WU LPARARE TER (BUYS ROW) 
THEN PHYS_ROW = .TERM_ROW; 

IF NOT NULLPARAMETER(PHYS col) 
THEN PHYS_COL = .TERM_COL 


END; ! Interrogate tis 


re 


2 
sngenisc SMGSMISC = Miscellaneous routines for screen mg 15- ~pe07 138% o: 3: 1g AX=-11 Bliss-32 V4.0-742 Page P . 


SMGSGET_PHYSICAL_CURSOR -Sep-1984 SMGRTL.SRCISMGMISC.B32¢ 1 
: 498 751 2 RETURN R ; 
: 498 a3 : ETURN SS$_NORMAL 
500 7 END; ; 
.PSECT _SMGSDATA,NOEXE, PIC,2 
1B 00000 INQUIRY:.BYTE 27 ; ; 
6E 36 5B tata ASCII \C6n\ : ; 
.EXTRN SMG$_TRMNOTANS, SYS$QIOW ; 
.PSECT _SMGSCODE,NOWRT, SHR, PIC,2 ; 
01FC 00000 ENTRY SHGSGET PHYSICAL _CURSOR, Save R2,R3.R4,RS,- ; 0550 ; 
5E FEFO CE 9€ 0000 MOVAB = PBs) F : 
‘ 10 AC D0 0000 MOVL P_P + 0624 
5 14 «AC 9 0008 MOVL Pp “PHYS COL, : 0685 
50 6C gi 5 OO0F SUBB3 so #T, (A B). birt : 0637 
04 0 91 00013 CMPB.séO*dUCF F, : 
08 18 00016 BLEQU : 
50 000000006 8F v0 00018 MOVL #SMG$_WRONUMARG, RO ; 
50 04 BC 00 0020 1$: MOVL § @PASTEBOARD_ID, RO + 0639 
i1 19 00024 BLSS ; 
000000006 00 30 D1 00 6 cHPL RO, PBD_L_COUNT ; 
08 000000006 00 50 £0 003 BBS RO, PBD_V_PB_AVAIL ; 
50 000000006 8F BO 00 q 2s: MOVL #SMGS_IRVPAS"ID, bs 3 ; 
5 0000000060040 00 O03 3$: MOVL pep .A gpBCBEROI. PBCB ; pe 
02 6C Bf 0048 CMPB ss CAP), i + 0647 
OA 1F 0004 BLSSU  4$ ; 
08 AC 05 0005 TSTL 8(AP) : 
05 13 0005 EQ. «0s «4$ F 
08 BC 20 Ad 3 004 CVTWL 4 © 32(WCB), @P_ROW > 0648 
3 C 91 0005A 4s: CMPB. sCC AP), #3 + 0649 
A 1 0005D BLSSU 5$ : 
0c AC D O05 TSTL 12¢AP) ; 
oc BC 22 ho ; Ost Pri | Scwce). arco : 0650 
Bs 6¢ § 9 5$ CMP (AP), #4” : $620 
1F 0006C BLSSU  6$ ; 
10 AC b 0 § TSTL  16(AP) F 
0D BNEQ 9% : 
05 ‘ 9 73 6%: CMPB CCAP), #5 + 0657 
; 1 7 BGEQU : 
0002 3 78 7$: BRW $ ; 
4 =A p 7B 8$: TSTL (AP) : 
F 7 BEQL 4 3 
08 63 A 9$ BLBS 99(P8 B), > 0680 
000000006 8F 0 ROVL #SMG$_TRANOTANS, RO 
04 DD C 10$:  PUSHL #4 > 0699 


0701 
0702 
0713 
0715 


AX-11 Bliss-32 V4.0-742 


y 11 Bli ; 
SMGRTL.SRCJSMGMISC.B32;1 


1986 93:85:58 


ra 
Sep- 


1 
1 


screen mg 


00000000' 


7E 
7E 


Llaneous routines for 
URSOR 


L 
C 


000000006 


C = Misce 
PHYSICAL 


SMGSMIS 
SMGS$GET 


SMISC 
1-012 


$ 


BUFFER®2 RO 
SB42, ROW START 
ROW_START 
§B+6, "R3 


RESP 


 DOWOMDVOr owe WO LOK OO 
OOO fe Ct OMOOVCVVV VA COOCCOOWWWWewuuwuu 
SOOOCOCCOCOCOCGOOGOOCOOOCOCCOSOOOSOOOSC OCC OOOO OS 6 6 
Be SSS SSS SS SSS SSS SS SSsSSSsssss 
SOOOOOOOOOOOOOOOOOSOoSSOOOOOCSOOCOSOCOOOSOSOOSSOSSOOOOSOOOOOOOOOOOOSO 


uc ws 
-o oO 


omen 


rrr OOWNO MINN 


ROW_LEN 


START 
TOL_START) 
SEQ 


COL 
( 


TART, PTR 
START, PTR, COL_LEN 


, R3, (ROW START) 


START 


15$: 


ee rrCwomsaoao 


SS8SS 


53 


62 
58 
64 
57 


W000 
mre 
Sl Deed De 
ooo 


eT WU VOWO WWOWMON RK KUN ON OTN OC OOM OCR Th OO OF WOON 
EIN INMOMAP. WN ZLDOMMMNUAN DOOOT SUN OOoowssTNnoor 


0744 


19$: 


MODdDO 


i ateii einedi ieee 


ROSAS SS 
TTT 


08 


6C 


56 
55 


sngsnisc 


; Routine Size: 


K sé 
SRDS paleit ana routines for screen we E-stectage U5 UG | YMGH SEN ata 
AF HB RTE ns ING 
50 yi 131 21$: chee RO 


340 bytes, Routine Base: _SMGSCODE + 0098 
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MGSMISC MGSMISC = Miscellaneous routines for screen m 1bese -1984 01:05: AX-11 Bliss-32 V4.0-742 © 17 
tes MGSSET BROADCAST. TRAPPING eee Hers rk oes ee Ct ee tg eT eae Se 29° 40) 28 
0 ZSBTTL "SMGSSET_BROADCAST TRAPPING’ 
0 GLOBAL ROUTINE SMGS$SET_BROADCAST_TRAPPING( 
04 PASTEBOARD_ID,AST_RTN,AST_ARG) = 


toe 


i FUNCTIONAL DESCRIPTION: 


This routine enables rapping of messages proegeass 
to the specified terminai. f an AST routine is specified 
the AST routine will be called yhonever @ broadcast 
message comes in. The AST routine will be called 
with the first argunent being the user's AST argument 
(passed by value). This can be the ggéress of a structure 
if the user needs to pass nore than bits of information. 
If more than one terminal is nvetved. the user may wish 
to pass along the pasteboard id as his AST argument. 
The AST routine can get at the message by calling 
SMGSGET_BROADCAST_MESSAGE. 
If no AST routine is specified, operation is pynchroneus and 
the user can get at broadcast Sessnpes by callin 
SMGSGET_BROADCAST_MESSAGE whenever he 
receipt of a broadcast message. 

CALLING SEQUENCE: 


RET_STATUS.wlc.v = SMGSENABLE BROADCAST TRAPPING ( 
PASTEBOAR 


SANS —~ 


109 C9 C9. OD CS OS 09 09 09 SINISE NIE PAA AAA AAO 
DWONAOVUVE WN $$ O OONOU SW 0 DONO NEW "OOOO 


wants to shook for 


Pa ef 
» AST_RTN.szem.r] 
» AST_ARG.rz.v]) 


FORMAL PARAMETERS: 
PASTEBAORD_ID.rl.r Address of pasteboard id 


AST_RTIN.szem.r Address of AST routine to be called 
if a broadcast message comes in 
(optional) 
If omitted, and if the next orqunent is 
omitted, then no AST routine will 
get called. 


PWN NAAMWM AAI AI RIP DOPININPOPUNPIDY 2 2 OO St SS OOOO 
co 


SOOOWNOUE WN 0 OBNOUE WN “OO ODNOUES WN “OO ODNOUES WN O0OONO 
VV NSS SSS SSS SSNS 


OOOCOCOCOCOCOOSOSOSSOSSSOOSOSCOSOOSOOOCOOOSOOOOOOOOOOOOOOCOO MM 


AST_ARG.r2.v opt tenet value to be passed along to 
the AST routine 
If this specified, but no AST_RIN 
argument is specified, then only the AST 
orguaent changes, but the routine remains 
e same. 


> b> | 


SOoOoooooooooooo 
> bp] 
SSarcnsses 


oo 
NO 


IMPLICIT INPUTS: 
channel of associated mailbox 
IMPLICIT OUTPUTS: 


associated mailbox channel may be assigned if not 
previous;y created. 


MIMWUIVIVIVIE BELLE 
ee ee ee ee ee ee ee ee ee ee ee ee ee eee eee ee A 
a 


Be Se Se Be Se Se Se Ge Se Ge Se Se Ge Se Ge FH Se Se Ge Se Ge Ge Fe Se FHS Gs Ge Ge Ge Ge Se Ge Fe Ge Se Gs Ge Fe Se Ge Se Se Se See Se Se Se Fe Se Se See Ge Sees 


ee 


Pw rete a peal eal eal ah al sl sl AL AL AL Ah db db dh dh db hh hh Abed b Abed bedbedh Ab Ab Ab Ab Ah bb Ab dn ah Ah Ab Ab sh sh sh ah sh sh ah al al a) 
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SMGSMISC SMGSMISC = Miscellaneous routines for screen mg 1o~3007 138? 91:03:16 AX-11 Bliss-32 V4.0-742 Page 18 sn6 
1-012 SMGSSET_BROADCAST_TRAPPING 14-Sep-1984 13:09: SMGRTL.SRCJSMGMISC.832;1 (10) 
3 FD 1} ! ' COMPLETION STATUS: 
: 61 131 $S$$_NORMAL Normal successful completion 
: ¢ 14 #1! SMGS_WRONUMARG Wrong number of arguments 
3 ? 39 3! SMG$_NOT_A_TRM Success, but dey ce is not a terminal 
; 4 1 1} L18 xyz Errors from Ly ASN_WTH_MBX 
; 365 | } SS$_xyz Any error possible From SMGS$SET_TERM_CHARACTERISTICS -e 
; e i 1 | SIDE EFFECTS: 
; 568 01! 
: 9 1 ae A mailbox may be created. 
; ¢ 1! The terminal characteristics get changed to BRDCSTMBOX 
3 7 1! and NOBROADCAST. (The old values of these characteristics 
3 4 : : } are saved away so that they can be restored later.) 
: 574 0826 1 i-- 


SMGSMISC 
1-012 
3; $7 
: OF 
s 37 
: 7 
3 39 
; + 
; 8ag 
; 584 
; 585 
> 586 


oon 


SMGSMISC = Miscel 
SMGSSET_BROADCAST_TRAP 


7 BEGIN 
LOCAL 
Han 
. BUILTIN 


5 

6 NULLPARAMETER; 
Bg EXTERNAL LITERAL 

0 SMG$_NOT_A_TRM; 


N 2 
Loneout cout ines for screen mg 12-800 1382 94:03:16 AX-11 Bliss-32 V4.0- 


742 
SMGRTL.SRCJSMGMISC.B32;1 


: REF BLOCKC,BYTE); ! Pasteboard control block 


! pasteboard device is not a terminal 
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sngsgisc SMGSMISC = Miscellaneous routines for screen mg 16-Sep-1984 94:03:16 AX-11 Blis 


V4 .0=742 p 
MGSSET BROADCAST. TRAPPING ~Sep-1 29 43) 


-32 
SMGRTL.SRCISMGMISC.B32; 1 


GIN ! ch gupent 
PBCBCPBCB_L_BROADCAST_ARGJ=.AST_ARG 
; '“cRange AST Srgurent 
END ! no AST routine specified 
ELSE BE 


GIN ! New AST routine 
PBCBCPBCB_A BROADEST ATI AST ATM 
LLPARAMETER(3) 


WANA 


$ 

: t} SSMGSVALIDATE_ARGCOUNT(1,3); : 
3 38 ‘8 SSMGSGET_PBCB(.PASTEBOARD_1ID,PBCB); : 
s 395 FA 1+ : 
; 3 B78 ' Make sure that the device is a terminal. : 
3 44 asc If not, return the qualified success, SMG$_NOT_A_TRM. : 
: 599 49 : 
: 600 0850 IF_.PBCBCPBCB_B_CLASS] NEQ DCS_TERM . 
: 601 0851 THEN RETURN ~SMG$_NOT_A_TRM: : 
2 ee ee : 
; 604 54 ! If we don't already have a mailbox established, : 
; 605 0855 ' then create a new channel to the terminal with an : 
: 606 pees ' associated mailbox. 

; 607 085 t= 

; 608 0858 

; 609 0859 IF_.PBCBCPBCB_W_ASYNC_CHAN] EQL 0 

; 610 0860 THEN BEGIN 

s 61} 0861 ; STATUS=INITIALIZE_MAILBOX(.PBCB); 

; ol¢ pees IF NOT .STATUS THEN RETURN .STATUS 

3; 61 pee 3 

3 614 864 

3 $15 0865 + 

; 616 0866 ' Note that broadcasts are enabled. 

; 617 0867 t= 

; 618 0868 

; 619 0869 § PBCBCPBCB_V_BROADCASTJ=1; 

; 620 0870 

3; 621 0871 2 !+ 

: 622 bar§ 2 ! Store the (possibly new) AST routine and argument in our PBCB. 

; 623 0873 2 !- 

3; 624 0874 2 

3; 625 0875 § IF NULLPARAMETER( 2) - 

: 626 0876 THEN BEGIN ! no AST routine specified 

: os? 0877 3 IF NULLPARAMETER(3) 

; 628 0878 4 THEN BEGIN ! cancel ASTs 

; 629 0879 4 PBCBLPBCB_A_ BROADCAST _RIN]=0; 

; 630 0880 4 PBCBCPBCB_L_BROADCAST_ARGJ=0 

3 65) 8 81 4 ND 'cancel ASTs 

: 632 Hf 4 ELSE BE ! change AST ar 

3 ° ? 0 2 4 

> 635 6 BS 

; O36 0886 

; 65 0887 

; 638 8 IF NULLPA 

: 639 9 THEN PBCB POTS _L BROADCAST ARG 120 

3 640 90 ELSE PBCBLPBCB~L~BROADCAST—ARGJ=.AST_ARG 

: 641 91 END; !' New AST routine 

3 O46 3 

3; 664 9 RETURN SS$_NORMAL 

3 644 94 

; 645 95 END; 


3 
SMGSMISC SMGSMISC = Miscellaneous routines for screen m 1§- Sep-19 :05:1 AX-11 Bliss-32 V4.0-742 Page 21 > 
wt SMGSSET_BROADCAST_TRAPPING "i 7355-1382 93:83:8 SMGRTL.SRCJSMGMISC.B32; 1 13) 1 
.EXTRN SMG$_NOT_A_TRM ; 
0004 0000 .ENTRY SMGSSET_BROADCAST_TRAPPING, Save R2 ; 0755 : 
50 6C gi 83 0002 SUBB3 #1, (APJ, DIFF ~ : 0841 : 
02 9 9 9006 CMPB DIFF, #2 : ; 
0 if 000 BLEQU 1 : : 
50 000000006 8F p0 00 MOVL #SMG$_WRONUMARG, RO : : 
50 06 BC 09 0013 1$ MOVL § @PASTEBOARD_ID, RO ; 0843 ; 
11 19 0001 BLSS 5 : 
000000006 00 D1 991 CMPL RO, PBD_L_COUNT : ; 
14 BGIR 2 ; : 
08 000000006 00 EO 000 BBS RO, PBD_V_PB_AVAIL ; : 
50 000000006 8F 0 00084 28 MOVL #SMG$_IRVPAS-ID, RO ; : 
52 0000000060040 po 0032 3$ MOVL PBD_A pacecR0J, PBCB ; ; 
42 BF 58 Ag 1 0003A CMPB 88-88 (PTB), ; 0850 ; 
08 13 0003F BEQL : ; 
50 000000006 8F p6 90041 MOVL #SMG$_NUT_A_TRM, RO ; 0851 : 
00D2 2 83 09049 4$ TSTW 210(PBCB) ; 0859 ; 
OA 12 0004D BNEQ $ : ; 
2 DD 0004 PUSHL PBCB ; 0861 ; 
0000v CF 01 FB 00051 CALLS #1, INITIALIZE_MAILBOX : ; 
3F 50 E93 0056 BLBC_ STATUS, 12$ ; 0862 : 
0000 C2 01 88 00059 5$ BISB2 #1, 208(PBCB) ; 0869 ; 
50 ooBc C2 9E 0005 MOVAB 188(PBCB), RO ; 0880 ; 
02 6¢ 91 0006 CMPB ss (AP), #2 ; 0875 ; 
05 1F 00066 BLSSU 6$ 3 3 
08 AC D5 00068 TSTL 8 (AP) : ; 
10 12 00068 BNEQ =-8$ ; 
03 6C 91 0006D 6$ CMPB ss (AP), #3 : 0877 
05 1F 00070 BLSSU 7$ 3 
0c AC 05 0078 TSTL 12 (AP) ; 
1A 12 0007 BNEQ 10$ : 
0088 C3 D4 00077 7$ CLRL 184(PBCB) ; 0879 
10 11 00078 BRB 9$ ; 0880 
0088 2 08 AC p0 9070 8$ MOVL AST_RTN, 184(PBCB) ; 0887 
03 6C 91 0008 CMPB CAP), #8 ; 0888 
05 1F 000 BLSSU  9$ ; 
oc Ac D3 00 TSTL 12CAP) ; 
04 12 000 BNEQ 108 ; 
60 p4 O08D 9$: CLRL = ¢RO) ; 0889 
4 11 £ BRB 11$ ; 
60 oc AC 00 0091 10$:  MOVL = AST_ARG, (RO) : 0890 
50 01 p 0095 11$:  MOVL #1,7RO : 0893 
4 00098 128: RET ; 0895 


; Routine Size: 153 bytes, Routine Base: _SMGSCODE + O1EC 
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- Miscellaneous routines for screen mg 16-Sep-1984 01:05: AX-11 Bliss-32 V4.0-742 
ZE_MAILBOX 8 12-8007} 38% 94:93:28 SMGRTL.SRCISMGMISC.B3201 
ZSBITL "INITIALIZE_MAILBOX'; 
ROUTINE INITIALIZE~MAILBOX(P_PBCB) = 
lee 


FUNCTIONAL DESCRIPTION: 


Creates a mailbox and assigns a channel to it. 
Initializes a queue of mailbox blocks. 


1 

' 

i 

i CALLING SEQUENCE: 

RET_STATUS.wic.v = INITIALIZE_MAILBOX(P_PBCB.rl.v) 

FORMAL PARAMETERS: 

P_PBCB.rl.v Address of pasteboard control block. 
; IMPILICIT INPUTS: 

i MAX_MSG 

BUF GUO 

IMPLICIT OUTPUTS: 

NONE 

; COMPLETION STATUS: 

! 
! 
t 
i 
' 
' 
! 


SS$_NORMAL Normal successful completion 
SS$_xyz Any error possible from $DASSGN or S$CANCEL 


i SIDE EFFECTS: 
NONE 


—————ESaaaaa 


3 
sngenise SMGSMISC = Miscellaneous routines for screen mg 16-Sep-1984 94:93: AX-11 Bliss-32 V4.0-742 
1-012 INITIALIZE MAILBOX 14-Sep-1984 13:09:5 SMGRTL.SRCIJSMGMISC.832;1 
; 683 931 BEGIN 
; oeF 9 ¢ 
: 686 3 ; BIND 
: 68 935 PBCB ss ==: «. P_PBCB : BLOCK, BYTE); 
; 688 9 $ o . 
; 689 09 LOCAL 
3; 690 938 
; 691 939 STATUS 
; 69 940 NAME _DESC : VECTORC2); 
: 694 O30 EXTERNAL ROUTINE 
; 695 94 
; 696 0944 LIBSGET_VM, 
: 697 0945 2 LIBSASN~WTH_MBX; 


MGSMISC SMGSMISC = cellaneous routines for screen mg 16-Sep-1984 AX-11 Bliss-32 V4.0-742 

; "ote INITIALIZE_MA matfgox ° 16- $10 1984 9}: 3: 48 SMGRTL_SRCISMGMISC.B32°1 

; 94 '¢ 3 
; , 0 309 i LIBSASN_WTH_MBX wants the name as a descriptor, ; 
; 701 94 ; _SO we build™one temporarily. : 
3 re Re : 
: 794 $31 NAME -ESC EOS. -PBCBEPBCB__DEVNAM LEN]; : 
; f 5 826 NAME-DESCL1J= PBCBLP BCB_T"_DEVNAM]; : 
; 18 954 SrATUsat Tessen WTH_MBX (NAME _DE aa MSG), 7. UF QUO), ; 
: 708 999 6CB_Q_ASYNC_CRAN ipacetr W_MBX_CHANJ); ; 
3 108 $37 IF NOT .STATUS THEN"RETURA .STATU : 
: 711 9 rs : 
; at; 326 i change the terminal characteristics to 3 
s ri 960 ' NOBROADCAST and BRDCSTMBX. ’ 
3; «716 0961 i Establish an exit handler to restore the old 3 
s 715 096 i characteristics upon exit. 3 
: 716 096 in 3 
: 717 0964 3 
; 718 0965 STATUS=SMGSS$SET_TERM eer ape vocecrece. L_PBIDJ, $ 
3; 719 0966 TTS$M_NOBRDCST, TT2$M_BRDCSTMBX); 3 
: 720 967 ¢ IF NOT .STATOS THEN RETURN STATUS: : 
F 128 0969 2 !+ : 
s fe 0970 Allocate a buffer to handle reads. 3 
: Se 0972 5 
: 58 097 PBCBCPBCB_W_SMGMBX_BUFSIZ]=MA : 
3; 727 0974 STATUS=LIBSGET OURCEREF (-PBCBCPBCB. M ray BUFSIZ]), $ 
: 728 975 PBCBCPBCB vine FFERJ); ; 
3 188 344 IF NOT .STATUS THEN RETURN “Sra TUS : 
: 731 978 2 !4 ; 
s 32 979 ! Initialize our queue of received mailbox buffers to empty. $ 
: OR 31 5 ; 
: 735 098 PBCBLPBCB_L_SMGMBX -FLINK}=PBCB PBCB_L_SMGMBX_FLINK); F 
; ee 94 +4 PBCBCPBCB_ a ~SMGMBX_BLINKJ=PBCBCPBCB_ a ~SMGMBX— FLINK); : 
: 738 09 5 2 te : 
; 739 0986 i Invoke the AST routine with our special INIT flag on, : 
: 740 987 i so that it knows that no buffer was read é 
3 es 0989 and a read gets initiated. : 
> 74 0 ; 
3; 746 991 PBCBCPBCB_V_SMGMBX INIT J=1 F 
3; 745 P 338 STATUS=$DCLAST( ASTADR = MAILBOX AST_ROUTINE, : 
3; 74 99 ASTPRM = PBCB); : 
; er 99% IF NOT .STATUS THEN RETURN .STATUS; : 
: 749 996 2 RETURN SS$_NORMAL ; 
; 750 99 F 
: 751 998 END; : 


.EXTRN LIBSGET_VM, LIBSASN_WTH_MBX 


————— 


3 
- ellaneous routines for screen 18-5 -1984 :05: AX-11 Bliss-32 V4.0-74 P 5 
ZE_MAILBOX . o 1a-sep-19 4 94:93:18 SMGRTL.SRC Shem se psoe1 age 483 


-EXTRN SYSSDCLAST 
0004 00000 dehy 


; SMISC SMGSM 
12 INI] 


; Routine Size: 147 bytes, Routine Base: _SMGSCODE + 0285 


Save R2 : 0897. ; 
10 ¢3 90002 Ae it : 
04 A ov P P&CB, R2 t 0935 ; 
08 AE é Ad 3¢ 9 MOVZWL 18(R2). NAME_DESC + 0951 ; 
C 18 Ad 9 VAB_  24(R2), NAME-DESC+4 + 095 3 
004 C2 OF 1 PUSHAB 21 (Res + 095 ; 
0D2 f F 0001 PUSHAB 210(R2) ; ; 
OC AE 12¢ 8F 3C¢ 0001B MOVZWL #300, 12(SP) + 0954 ; 
C AE OF 1 PUSHAB 1 (SP) : ; 
OC AE 012 «BF 3C 4 MOVZWL #300, 12(SP) : ; 
¢ AE OF 99 A PUSHAB 12(SP) : ; 
1 AE F 00 PUSHAB NAME DES F ; 
000000006 99 : FB 000 CALLS #5, CIBSASN_WTH_MBX + 0955 ; 
0 .€ 00 LBC ~=—- STATUS, + 0956 ; 
10 DD O003A PUSHL wig + 0965 ; 
00020000 8F DD 09 PUSHL #1 1972 : ; 
16 A2 9F 0004 PUSHAB 20(R ) : ; 
0000v 9 FB 0004 CALLS #3, SMGS$$SET_TERM_CHARACTERISTICS : ; 
45 E9 O004A LBC = STATUS, _1$ > 0967 ; 
0006 = C2 012¢ «6 BF. SC«BO 90040 OVW #300, 214(R2) : 0973 
0008 C3 9F 00054 PUSHAB 16¢R2) : 0975 
08 AE 0006 C2 3¢ 00058 MOVZWL 214(R2), 8(SP) : 0974 
08 AE 9F 0005E PUSHAB &(SP) : 
000000006 00 9 FB 0061 CALLS #2, LIBSGET_VM + 0975 
e t 0068 BLBC status 1$ + 0976 
1 00c8 §6 C2 f 0068 MOVAB 200(R25, R1 : 0982 
61 1 D 9070 MOVL Ri, (RIS ; 
oocc C2 1 00 0007 MOVL 1, 04 (R2) : 0983 
0000 «C2 04 88 00078 BISB2 #4. 208(R2) : 0991 
E D4 00070 CLRL = = ( §P) + 0993 
5 pp oor PUSHL R2 ; 
0000v CF 9F 00081 PUSHAB MAILBOX_AST_ROUTINE F 
000000006 0 93 FB 0085 CALLS #3, SYSSDCLAST ; 
9 E 6008¢ BLBC STATUS, 1$ > 0994 
0 01 BO O08F MOVL #1, RO > 0996 
4 00092 T : 0998 
| 
| 
| 
| 
| 


+ 


H 3 
SMISC SMGSMISC = Miscellaneous routines for screen mg 16-Sep-1984 705: AX-11 Bliss-32 V4.0-74 p 
Pate RAILOX_AST.ROUTINE BF aes ik tS ee soe 428) 
SBTTL "MAILOX_AST_ROUTINE'; 
OUTINE MAILBOR_AST_ROUTINE(P_PBCB) = 


> 
+ 


FUNCTIONAL DESCRIPTION: 


SANG 
SSeS RU 
oO 
SSSSss3 


This poutine recesses messages that appear in our mailbox. 
s 


: 1% 

3 1R 

3 1 1 

: 1 1 ! 

3 1 1! 

: 1008 | | 

: 1 $ 1! ALL it does nk the message into a 74 oe 4! chain. 
; 761 1007 1! A user's AST routine may get called at this time. 

; 76 1 4 1! A new block and buffer get created and a read for another 
; 66 1009 1! message is initiated. 

; 764 1010 1! 

3 765 1011 1 ! CALLING SEQUENCE: 

; re 1oig 7 

: su 131? : RET_STATUS.wic.v = MAILBOX_AST_ROUTINE(P_PBCB.ri.v) 

3; 769 1015 1 ! FORMAL PARAMETERS: 

; 770 1918 1! 

: or Olt : P_PBCB.rl.v Address of pasteboard control block. 
3 6¢f 1019 1°! IMPLICIT INPUTS: 

3 «6774 + 01! 

s <4 1021 1! NONE 

; 776 10 ¢ 1! 

MB a4 10 1 ! IMPLICIT OUTPUTS: 

3; 778 1024 1! 

; 779 1025 1! 

; 780 1026 1! 

; ay er : COMPLETION STATUS: 

; 78 18 9 1! SS$_NORMAL Normal successful completion 

; «(784 19 01! SMGS_WRONUMARG Wrong number of arguments 

; AF 1) 1 : S$_xyz Any error possible from SDASSGN or $CANCEL 
; 787 10 : 1 ! SIDE EFFECTS: 

; 788 1034 1! 

3; «6789 1035 1! NONE 

; 790 1036 1 !-- 


oe 
| 


| 
| 
| 
| 
| 


————<—$——— tt - _ —y 


SMGSMISC SMGSMISC = Miscellaneous routines for screen m 1b-se Sep-1 AX-11 Bliss- 0-74 7 
regio RAILOX_AST_ROUT INE ere aets rte aes Me ce tha eae eae ae Page 4$) 
; 138 } H BEGIN 

$ f ¢ } Z LOCAL 

5 736 104 SMGMBX : REF SSMGMBX_DECL, 

; 79 1 STATUS; 

: 798 1 

; 799 1044 

; 800 1045 

; 801 1 $ 

; 80 104 

; 80 1 rh 

: 04 104 

; 805 1050 

; 508 1051 

3 07 1926 EXTERNAL ROUTINE 

; 808 105 

; 809 1054 LIBSGET_VM; 


BUILTIN 
INSQUE 
BIND 
PBCB = .P_PBCB : BLOCKC,BYTE; 


; 


SST LOLS. 


“0 


as 


WN "OC OONOUVE WN" OVOONOUES WN 


2 
1 
1 
1 
1 
1 
1 
1 
1 
3 
3 


vas weeny ~ 


DONO VUVEWN —OOODNOUESWN "OO ONOu 


02.00 00.00 00 00 C0 00 00 00 00 09 09 0 00 00 09 C0 00 C0 00 00 CD G9 09 09.00 G9 09. 0D 0002.0 
PRE EWW 


SMISC 


3 

SMGSMISC = Miscellaneous routines for screen m 1b-se -1984 01:05: AX-11 Bliss-32 V4.0-742 
MAILOX_AST_ROUT INE . 1 ~3007 138% 93:99:88 SMGRTL.SRCJSMGMISC.B32;1 

5 + 

8 ! A read has just completed (except during initialization). 

ine put ior one 1/0 status block for this read are 
: ; We look at the kind of message it is and deal with it accordingly. 
: ! 
gg i* 


Create a new SMGMBX structure and Link it in at the end. 


If_.PBCBCPBCB_V_ SMGMBX INIT] 
(nee PRCBEPAC. V. SHGHBX. INITI=0 


+43 BEGIN ! Copy peozege to our queue 

534 BIND BFR = .PBCBCPBCB_A_SMGMBX_BUFFER] : VECTORC2,WORD); 
071 1+ 

O76 ! Do different things depending ugen whether this is a 
oF broadcast message or an unsolicited input message. 

075 ; 

076 IF .BFRCO} EQL MSG$_TRMUNSOLIC 

144 THEN BEGIN ! Unsolicited input 

079 '¢ 

bay Call the user's AST routine, if one was specified. 
08 

O83 IF .PBCBCPBCB_A_UNSOLICIT_RTN] NEQ 0 

One THEN N 

S 5 BIND ROUTINE 

O87 BRIN = .PBCBCPBCB_A_UNSOLICIT_RITNI; 
53 ! Ignore status from user's AST routine 
91 BRTIN( .PBCBCPBCB_L_PBID) 

3 -PBCBCPBCB-L-UNSOLICIT_ARGJ); 

3% END; 

38 END ' Unsolicited input 

i ELSE BEGIN ! broadcast message 


STATUS=LIBSGET_VM(ZREF (SMGMBX_S_SIZE) , SMGMBX) ; 
IF NOT .STATUS- THEN SIGNAL(.STATUS); 


CHSFILL(O,SMGMBX_S_SIZE,.SMGMBX) ; 
INSQUE (. SMGMBX, .PBCBLPBCB_L_SMGMBX_BLINKJ); 

'¢ 

; Allocate a new buffer to receive mailbox messages. 


SRENLSSS 


BRR R ARERR REESE PIII BE BBB BWW WII OOOPOPUNITURITUNINUNINY I 


ee ee ee a ee a a a ad 
a tt st I I 4 MQOOOOOOOOOOSCSO 


—O0e 


aw 


W._SMGMBX, BUF S172) , SHGMBXCSMGMBX_A_BUF FER); 


De Se Se Se Se Se Se Se Se Se Se Se Fe Se Ge Ge Ge Se t, Se Se Be Se Ge Ge Ge Ge Fe Ge FH Se Se Se Fe Se Se Se Se Se Se Se Ge FS Ge Se SHS Se Se Geese tease 


asses 


7 
908 


© 
So 
Oo 


OOOOOOOOOOVOD 
POR 3 3 SS 
—OOONOulwnr—o 


vuvvUvUU 


ee. 
SMGSMISC = Miscellaneous routines for screen mg 16-Sep-1984 01:05: AX-11 Bliss-32 V4.0-742 
MAILOX_AST_ROUTINE ° 19-808- 1382 94:83:28 SMGRTL.SRCISMGMISC.B32¢1 
1112 4 + 
1118 2 } Remember it's size (in case the default size in the PBCB changes. 
1115 4 . 
1418 2 SMGMBXCSMGMBX_W_BUFSIZJ=.PBCBCPBCB_W_SMGMBX_BUFSIZ); 
1118 4 '¢ 
1119 4 ! Copy the returned message and it's 1/0 status block into 
1120 4 !' this structure. 
1153 a 
11 § 4 CHSMOVE (8, PBCBCPBCB_Q_ SMGMBX 1058). SAGMBXCSMGNOX_0_10883); 
1124 4 CHSMOVE (. SMGMBXC SMGRBR_W_MSGCEN 
1125 4 -PBCB Pac A_SMGABX BUFFER, 
i $ 4 . SMGMBXCSMGMBX_A_BUFFERJ); 
1128 4 + 
1 4 2 Call the user's AST routine, if one was specified. 
1131 4 : 
11 é 4 IF _.PBCBCPBCB_A_BROADCAST_RTN] NEQ 0 
11 THEN 
1% : BIND ROUTINE 
MI $ 5 BRIN = .PBCBCPBCB_A_BROADCAST_RTNI; 
N35 ; ! Ignore status from user's AST routine 
1140 3 BRTN(.PBCBCPBCB_L_BROADCAST_ARGJ); 
nig - 
Nee 2 END ! Broadcast message 
1146 END; ! Copy message to our queue 
1128 3 1 
1149 i Issue a read to the mailbox again so that our AST routine 
1139 will wake up again the next time something comes in. 
115 ; 
1183 STATUS=$010( CHAN = Pecerrece uay CHAN) 
1154 EFN = [PBCBLPBCB-B~ASYNC_EFNS, 
V2? FUNC = 10$_READVELR 
11 $ 10SB = PBCB PBCB_Q_SMGMBX_1NSB) 
113 P1 = .PBCB PBCB_ATSNGMBX"B IEFER], 
1158 P2 = .PBCBCPBCB_W_SMGMBX BUFSIZ), 
1159 ASTADR = MAILBOX_AST_ROUTINE, 
1160 ASTPRM = PBCB); 
119 IF NOT .STATUS THEN SIGNAL(.STATUS); 
' : e§ RETURN SS$_NORMAL 
1165 END; 


Pee 18) 


De Se Se Se Se Oe Be Se Se Se Se Fe Se Se Be Se Se Se Se Se Ge Ge Fe Se Ge Se Se Oe Se FHS Se Se Se Fe Se Se SESH Se Se Se Se Se Se Se See ee ee Se Se Se Se Seas 


SMGSMISC SHGSHISC = Mi 
eet ofl 


MAILOK AST ROUTING routines for screen mg 18-se0-1984 01:05:16 AX-1 BL isg-32 V4.0-742 


1 
-Sep-1 SMGRTL.SRCJSMGMISC.832;1 
-EXTRN SYS$Q10 


.WORD Save R2,R3,R4,R5,R6,R7,RB,RI,R10 
A 999900006 9E 00 MOVAB LIBSGET VM, R10 
9 6 9 HOVAR L1BSSIGRAL. RO 
é 06 =A 5 i aout 4 bate R6 
07 0000 66 05 1 4) BBC 42, 29 (R6), 1$ 
0000 C6 04 A O10 BI ¢B2 f * 208(R6) 
01 00D8 06 é 00 4 1$ CMP asr6cre, " 
50 00c0 ¢ p 00 MOVL  192(R6), RO 
0 BEQL © 6$ 
00¢4 C6 Dd 000 PUSHL  196(R6) 
14 Ad DD 000 PUSHL  20(R6) 
60 02 FB 00 CALLS We. (RO) 
66 11 0003C a8: BRB 6 
04 AE 9F OOO3E 3$: PUSHAB SMGMBX 
04 AE 1 20 0041 OVL #24, 4(SP) 
06 AE OF 0043 PUSHAB 4(SP) 
6A 08 FB 00048 CALLS #2, LIBSGET_VM 
EB DO 00048 MOVL RO, STATUS 
05 38 E8 0004E BLBS STATUS, 4$ 
58 DD 00051 PUSHL STATUS 
69 01 FB 00053 CALLS #1, LIBSSIGNAL 
18 00 6E io 09 2c 0056 4$ movcS #0, (SP), #0, #24, @SMGMBX 
00cc v6 04 BE OE 9050 INSQUE @SMGMBX, @204(R6) 
57 04 AE D0 0006 MOVL MGMBX, R7 
08 A? 9F 00067 PUSHAB 8(R7) 
04 AE 0006 «6 3C 000A MOVZWL 214(R6), 4(SP) 
04 AE F 000 : PUSHAB 4(SP) 
6A 02 FB 0007 CALLS #2, LIBSGET_VM 
58 50 D0 00076 MOVL RO. STA 
05 38 E8 00079 LBS STATUS, 5 
a DD 607¢ PUSHL STATUS 
01 FB O007E CALLS #1 LIBSSIGNAL 
14 A? 0006 ¢ 0 9081 5$: MOVW 214(R6), 20(R?) 
Oc A? 0opc 6 8 00087 MOVC3 «#8 g20iR6) 12(R7) 
B7 0008 : OE A? 28 OOBE MOVC3 14(R7), a216(R6), @8(R7) 
008 C6 b9 009 MOVL  184(R6S, RO 
07 1 0 9B BEQL $$ 
00Bc C6 DD 0009D PUSHL 8(R6) 
60 1 FB OOOA1 CALLS #1, (RO) 
E 7C OOOA4 6$ CLRO 20s = ( §p) 
7E gc OOA6 CLRQ  -=(SP) 
7E 0006 C6 3C OOOA MOVZWL 14(R6) -(SP) 
00D C6 DD OOOAD USHL 216(R6) 
6 DD 00081 PUSHL 6 
FF49 CF OF 000B PUSHAB MA LBOX_AST_ROUTINE 
00DC C6 F 0008 PUSHAB 220(R6) 
1 0D 0008B USHL 4&4 
7E 0004 (6 3C 000BD MOVZWL ¢ (R6), -(SP) 
43 67 A6 OA 6 ce MOVZBL 6 (R6). =(SP) 
000000006 0 OC FB 000C CALLS #12, SY§$al0 


See Se Se Se Se Ge Se Ge Se Ge Se Se Se Ge Ge Fe Se Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ss Se Se Se Be Se Be Ge Se Fe Fe Se Se Be Se Se Be Be Se Se Se Fe Se Se Be 


m3 
RSSRE'SSARADNSKST_AUgRAALOneows routines for sereen nn JE-smeigRE PLBE:IG UGIILOUESSRENSe SSRI, PB 
38 8 ee 8 3 BLES TA strug, 78 : 1161 
$8 61 i 00d8 7$: move 1, Hy LiessicvaL + 1163 
4 00008 RET + 1165 


; Routine Size: 220 bytes, Routine Base: _SMGSCODE + 0318 


nN 3 

MGSMISC SMGSMISC = Miscellaneous routines for screen mg 16-Sep-1984 01:05: AX-11 Bliss-32 V4.0-742 Page 32 $ 
; 12 SMGSGET_BROADCAST _MESSAGE . 12-86-1382 94:85:48 SMGRTL.SRCISMGMISC.B3251 . (135 1 
; 9 i 11 § 1 ZSBTTL ‘SMGSGET_ BROADCAST _MESSAGE' ; 
3; 9 11 1 GLOBAL ROUTINE SMGSGET_ BROADCAST MESSAGE ( ; 
; 3 5 13 8 ! PASTEBOARD_ID,P_MSG_DESC,P_MSG_LEN,P_SENDER_PID) = : 
; 959 1176 1 14 ; 
; 2 8 \i0) : FUNCTIONAL DESCRIPTION: : 
: 930 1198 1/ This routine asks if any broadcast messages have been ; 
; 931 1174 1! received. If none Reye been received, it returns with " 
3; 9 ¢ 1175 1! the sucess status SMG$_NO_MORMSG. Normally, when a progres : 
: ¥ 1178 13 desires to process trapped messages, it would call this routine : 
; 934 1177 1! repeatedly, handling each message it provided until ; 
; 4 F 1308 : } there were no more. : 
3 4 1339 ! | This routine may be called from either AST level or NON-AST Level. : 
; +44 Hi 1 | CALLING SEQUENCE: : 
> 941 1184 1/3 RET_STATUS.wlc.v = SMGSGET_BROADCAST_MESSAGE ( 3 
H arg 1185 1! PASTEBOARD_IB.rl.r : 
; 94 1186 1! » P_MSG_DESC.wt.dx, 3 
3 944 a 14 1! t: as LEN.ww.r] J ; 
; 945 1188 1} > CPTSENDER_PID3) ; 
; 947 1196 | FORMAL PARAMETERS: 
: 949 1138 1 PASTEBOARD_ID address of pastebaord associated 3 
3 eet 133s : with terminal in question ; 
; 328 1195 1! P_MSG_DESC address of a descriptor for a 3 
; 95 1196 1! buffer to receive the broadcast : 
3; 954 1197 1! message. If omitted, the broadcast ; 
3 922 Bb : message is discarded. : 
; 957 1200 1: P_MSG_LEN address of a word to receive the ; 
; 958 1201 1! actual length of the received message. ; 
3 959 1 4 1! This is set to 0 if no messages were : 
; 960 1203 1! available. : 
; 961 12046 1! The value of this word is unpredictable 3 
; 306 130¢ : if other errors occur. : 
: 964 1 0 1 P_SENDER_PID address of a longword to receive the PID ; 
; 965 1208 1! process id) of the process that sent 3 
3 306 1209 1! this broadcast message. This may 3 
; 96 1210 1! be 0 for certain system processes. 3 
; 968 ais 6 a This longword is not set if an 3 
3 s+ ! \¢ ' error occurs. : 
i 9a 1214 1 | IMPLICIT INPUTS: ; 
: 395 1 1g 1/ internal data storage holding previously received broadcast : 
3 are ! : : } messages. ; 
i 976 19 | {| IMPLICIT OUTPUTS: 3 
; 978 1381 1 | NONE ; 
; 97 1222 1! 3 


SMGSMISC SMGSMISC = Miscellaneous routines for screen m Ibse Sep-1 AX-11 Bliss-32 V4.0-742 Page 33 $ 
eet SMGS$GET_BROADCAST_MESSAGE ’ 30071384 9}: 83; ig SMGRTL.SRCISMGMISC.B32:1 : «133 1 
$980 1323 1 | COMPLETION STATUS: ; 
3 O88 1205 1! SS$_NORMAL Normal successful completion ; 
; 98 1006 1! SMGS_WRONUMARG Wrong number of arguments : 
> 984 l2e7 1! SMG$_NO_MORMSG No more broadcast messages are available : 
: 985 1208 1! LIBS_xy2 Any error possible from LIBS$SCOPY_DX : 
; 9 1209 1 SS$_xyz Errors from mailbox driver (these errors : 
; 9 1230 1! may have occurred when we tried to read ; 
> 988 1231 1! a message). : 
: 989 1 ¢ 1 i ° 
; 990 1 1 | SIDE EFFECTS: ; 
; 991 1 $e 1/ : 
; 99 1235 1! NONE ; 
; 99 1236 1 : 
; 994 1237 1 i+ : 


; Saise SMGSMISC = Miscella 


4 
el routines for screen m 16- Sep-1984 AX-11 Blis 
2 SMGSGET_BROADCAST_ ° . 138 9}: 83:8 


-Sep-1984 


4.0-742 


aneous $5 -32 Page 3 
MESSAGE SMGRTL.SRC SMGMY SC. B32;1 (2 


: 99 BEGIN 

i 3 1538 

Be mie 

> 1000 1 4g MSG_DESC = .P_MSG_DESC : BLOCKL,BYTEJ, 
> 1001 124 MSG~LEN = [P™MSG"LEN WORD, 
; 1008 4 SENDER _PID = “PTSENDER_PID : LONG: 
: 1004 46 EXTERNAL LITERAL 

: 1906 48 SMG$_NO_MORMSG; 

; 1008 30 EXTERNAL ROUTINE 

: 1010 1 38 LIBSSCOPY R_DX, 

: 1011 125 LIBSGET_VA, 

: 101g 1254 tIBSFREE. VM; 

: 1014 1386 LOCAL 

: 1016 1584 2 FOUND_FLAG, 

> 1017 1239 2 FINAL STATUS, 

: 1018 1260 2 SMGMBR : REF SSMGMBX_DECL 

3: 1019 1261 2 PBCB : REF BLOCKL, BYTE). 

: 1020 126@ AST STATUS, 

: 1021 1268 STATUS; 

Be 1 fmm 

> 1025 1267 $ REMQUE , 

> 1026 1268 2 NULLPARAMETER; 


SMGSMISC “1984 01:05: AX=11 Bliss-32_v4.0-742 Page 35 
1-012 p-1984 13:09:55  LSMGRIL SR TSMGMY $e 85351 29° 24} 


PR 
oz 
me 


D 
SC_ = Miscellaneous routines for screen mg 16- 
T BROADCAST _MESSAGE 14 


SSMGSVALIDATE_ARGCOUNT (1,4); 
$SMGSGET_PBCB(.PASTEBOARD_ID,PBCB); 


14 
} Note that we have not yet found a broadcast message. 


FOUND_FLAG=0; 


14 

' Go look in our PBCB to see if any mailbox messages are present. 

! If so, extract them off, one at a time, looking for a 

broadcast message. Return it to the user if he supplied a buffer. 


DOOOOOOOCCOCOOCOCOCOOCO — 


ooo 
WR O OONOAUE WN OOODVNAUE WN “OVD ONOUSWN 000 


i Note that the SMGMBX message queue must always contain at least 
! one block. This is the block that the current read is attached to. 
! We must never touch this block. Note also that we need not 


' 
i 
1 
1 
! gisable ASTs at critical times to prevent our queue from 
getting messed up because INSQUE and REMQUE instructions 
' 


be ' are non-interruptable. 

05 

05 WHILE 1 DO 

82 BEGIN ! Look for message in queue 

05 ! 1+ 

ge Disable delivery of ASTs. 

05 i 

be : AST_STATUS=$SETAST (ENBFLG=0) ; 

06 ! IF .PBCBCPBCB_L_SMGMBX_FLINK] EQL .PBCBCPBCB_L_SMGMBX_BLINK) 
06 ! THEN EXITLOOP; 


+ 
Attempt to remove the first mailbox block from the queue. 


BDOOOCOCOCOOCOSS COO OOOO O00 OWDWOWWOWMOMOMOON NINO =—OO 


OER @O OONOUE WH OOODNOAUE WN | 9 OONAUE WIN — O OONOUS WN —OVDONOUSWNOO 


STATUS=REMQUE (.PBCBCPBCB_L_SMGMBX_FLINK],SMGMBX) ; 


'¢ 
' If the queve was empty, then we waves? exit the loop. 


This means that there are no broadcast messages available. 


IF .STATUS THEN EXITLOOP; 


'¢ 
Re-enable delivery of ASTs if they had previously been enabled. 


AWA WII AAA AAA AAI AAAI AI AI PO POPONPOPONONININININPONO PoP Pon Nononoforonororofnropnrnrrnrnn 3s 


mm ee a a at a a a ad td td od 8 ed ot = 8 ws = = es Ss SS 


SESS SSSLSISSLSSESES 
PENA SsaNourun—csow~ u 


IF_.AST STATUS fe 


& SS$_W 
THEN $SETAST FLG=1 


PS 
wn” 
n” 
mn 
~ 


L 
NB 


ROPROPONOROnD 


ooooooo 


SMGSMISC SMGSMISC = Miscellaneous routines for screen m hese Sep-1984 AX-11 Bliss-32 V4.0-7 " 
ae tes SMGSGET_BROADCAST_MESSAGE ° 14- ~8ep-1984 9}: 83: 8 SMGRTL eS nei shemi se. B53 1 in 

085 4 

Q § i Examine the removed block to see if it is a broadcast mailbox 

0 i message. 

088 ie 

089 

090 4 

09 ' If the 1/0 status block shows that there was some error 


! reading this message, then return that error now. 
! Who knows? It may have been a broadcast message and we 
somehow lost it. 


SS 
ONAULS Wr 


oo 
oO 


oooo 


oooo 


IF NOT - SMGMBXCSMGMBX _W gs tAtUs2 
THEN BEGIN 1/0-er rgpeing message 
IF _ NOT NULLPARAMETER (33 
THEN MSG_LEN=0; 


FOUND _FLAG=1; 

FINAL -STATUS=. SMGMBXCSMGMBX_W_STATUS] 

END 1/0 error reading message 
ELSE BEGIN Valid message 


BIND 


soe 
Oo 


oooo 


nm 
=SSe~ w Ui OO NO MP UI O De weer Re 


TYPE = ,SMGMBXCSMGMBX_A_BUFFERJ : WORD 
BRDMSG = TYPE : VECTORL BYTE); 


+ 
ok at the type of the message. 
is type is in the first word of the message. 


Lo 
Th 
If it is not a broadcast message, then we throw it away. 


IF .TYPE EQL MSG$_ TRMBRDCST 
THEN BEGIN !"Handle broadcast message 


8 
'¢ 

I can't find any symbolic offsets for this message. 
i 

i 

le 


A. ANIA AINI AANA AAAI AAAI NIAI AA AAAI ANIAAI NIAAA AAAI 


DDD DG & BB BB BE EE EAN 
FAN OOO NAVNE WIN 8 ODNAU EWN SOOO NAOUE WN" OOONO 


It is leasy teed in the 1/0 user's guide 
under the section about terminals 
The prosscast message starts at offset 22 


MNPLPUNON 3 OOO 


SOOO 


WWWAIA.AWAA AA AAA 
@o@oc~~ SANNNNO 
SSSR NOU EU OOO NOM 


~ 


in this blo ogee 
Its length is stored in a word at offset 20. 
BIND 


BROLEN = promscteo) 


: WORD 
MESSAGE = BRDMSG : VECTORE BYTE); 


‘+ 
Note that we have found a broadcast message. 


aa aa a ak tk a a at a a 2 = = = = = SS SS Ss ss Ss I YY OS 
me a a aaa a a a at at at ot = 2 = = = = = = 8 4 2 2 ss 2 


PPT PVPS PVPS TSS EB BS BE BB BPP PPE PE EEE PANN 
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. 
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. 
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. 
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e 
. 
e 
7 
a 
. 
e 
. 
o 
. 
e 
. 
. 
e 
. 
- 
e 
eo 
. 
2 
oO 
. 
6 
. 
* 
7 
e 
* 
oc 
. 
oe 
7 
e 
. 
e 
. 
Ye 
e 
- 
. 
o 
os 
. 
a 
a 
e 
. 
a 
. 
e 
7 
« 
° 
a 
o 
° 
. 
. 
. 
e 
- 
oe 
. 
oO 
. 
. 
. 
o 
. 
2 
. 
. 
. 
o 
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. 
. 
. 
. 
o 
. 
a 
. 
7 
. 
e 
. 
o 
. 
. 
. 
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Be Be Se Se Se Se Se Se Be Se Be Se Se Se Se Ge Ge Ge Fe Se Ge Se Fe FH Se Ge Ge Fe Fe Se Se FHSS Se Ss Ge Se FHS Fe Se Se Se Se Se Se Se Se Ge Se Se Se Se seas tee 


me ee a ed ed ed od od od 


ae 


FOUND _FLAG=1; 
F INAL~STATUS=.SMGMBXCSMGMBX_W_STATUS); 
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; 12 SMGS$GET_BROADCAST_MESSAGE ° 12-808- 1382 94:93:88 SMGRTL.SRCISMGMISC.B32° 1 . (21) ic 
3 114 1383 
3 114 1384 '¢ 
> 11446 1385 i Return to the user the Length of 
: 1302 ' § i. the message (if he asked for it). 
: 1109 1 88 
: 1338 1389 IF NOT NULLPARAMETER(3) 
3 1138 : ay THEN MSG_LEN=.BRDOLEN; 
: 1181 1 3 1+ 
3 11 § 139 ' Return to the user, the PID of the process 
3 (11 1394 ! that broadcast this message, 
3 1154 1395 ! if he asked for it. 
118% 1399 2 
; 1137 1398 IF NOT NULLPARAMETER(4) 
3; 1158 1399 THEN SENDER_PID=.SMGMBXCSMGMBX_L_SENDERI; 
3 1159 1400 
3; 1160 1401 '+ 
3 1161 1008 ' Return the Senet to the us 
; 1188 1403 5 ' (using the seman 388 of his descriptor) 
3 116 1404 5 ! if he asked for it. 
> 1164 1405 be 
: 1165 1608 
; 1166 140 IF A... a NULLPARAMETER(2) 
3; 1167 1408 6 THEN BEGIN ! Return message 
: 1168 1409 6 
3 1169 1410 6 '¢ 
3 BA 191) ? Pigedd it to the user's buffer. 
: 11% 1213 6 
3 117 1414 6 STATUS= tL sesscorr -R_DX¢ 
3 1174 1415 6 BRDLEN 
> 1175 1416 6 RESSAGE 
> 1176 1417 6 ESC); 
; W277 1418 6 If NOT Stirbs STHEN RETURN .STATUS 
: 1179 1420 1 END; ! Return message 
; 1181 1? § ? END; ! Handle broadcast message 
: 11 : 1424 END; ' Valid message : 
311 1425 
3; 1185 14 § '¢ 
3 11 14 ' Return the buffer to virtual memory. 
st te ‘ 
: 1189 1430 STATUS=LIBSFREE Saag AD MGMBXCSMGMBX_W BAgyESiz2). 
; 1190 1431 XCSMGMBX_A_BUF FFER 
: 8 4 ° § IF NOT .STATUS THEN RETURN .STATOS; | 
: 1198 1434 6 | 
3 1194 1435 i Return the mailbox block to virtual memory. 
oh eT s 
: 1199 14 3 SIATUSeL 1OSF REE VM(ZREF (SMGMBX_S_ SIZE),SMGMBX); 
; 1198 14 IF NOT .STATUS THEN RETURN .STATOS; 


4 | 
SMISC SMGSMISC = Miscellaneous routines for scr 18- Sep-1984 5: AX-11 Bliss-32 V4.0-74 P 
eeT3 SMGSGET BROADCAST MESSAGE creer mg eee tobe Shibosss = Eghcrte sReisncmy se a soe1 ase if 
; 1199 1440 | ; 
: 1200 1441 \¢ ; 
3 3 3] 1966 ! If we had found a message, then we can return now. ‘ 
3 3 ¢ 144 le ; 
3 120 1444 : 
31 04 1445 IF .FOUND_FLAG ; 
: : 5 1958 THEN UNRETURN -FINAL STATUS : 
: oF 1008 END; ! Look for message in queue | , 
> 1209 1450 2 !+ ; 
3 3 19 1451 i No messages are left in the queue. ‘ 
: 121 14 ¢ i Return a status to the user tel Ling him that no ; 
3: 1 \¢ 145 j wrosdcast messages are availa : 
: 121 1454 ; 
3 1214 1455 : 
; 1215 1456 IF NOT NULLPARAMETER(3) : 
:1 16 145 THEN MSG_LEN=0; : 
: 121 1458 ; 
> 1218 1459 2 RETURN SMG$_NO_MORMSG : 
: 1219 1460 s 
; 1220 1461 1 END; : 
-EXTRN  SMG$_NO MORNSG, LIBSSCOPY_R_DX ; 
-EXTRN LIBSFREE_V : 
07FC 00000 ENTRY SNGSGET BROADCAST MESSAGE, Save R2,R3,R4,~ ; 1167 ; 
$A 000000006 90 es 2083 movag asrfee EVM, R10 ; : 
59 08 AC p 000¢ MOVL P_MSG_DESC, R9 : 1242 : 
57 OC Ac p 9019 MOVO. P-MSG"LEN, R7 > 124 ; 
50 ¢ 91 0014 SUBB3 aT (KB) DIFF : 1269 ; 
0 0 91 00018 CMPB DIFF, a3" : ; 
08 8 0018 BLEQU : ; 
50 000000006 8F pO 9010 MOVL #SMG$_WRONUMARG, RO : 
50 04 BC 00 0025 1$: MOVL § @PASTEBOARD_ID, RO : 1271 
>} 99 9 BLSS : 
600000006 00 6 b 99 8 CPL RO, PBD_L_COUNT ; 
08 000000006 90 ; EO BBS RO, PBD_V_PB -AVAIL 3$ : 
000000006 F 0 O005¢ 28: ——MOVL #SAGS_IRVPAS"1D, RO : 
53 0000000060040 d0 aes 3$: MOVL pap A. PBcecRo}, PBCB : oor 
04 AE 00c8 3 OF aE 4$: REMQUE 33 0(PBCB), SMGMBX : 1840 
DC MOVPSL R ; 
51 51 9 1 €F é EXTZV #1, #2, R1, RI ; 
1 D9 B MOVL RI stAty ; 
0 0 : 3 BLBC StAtUs, $ : 1317 
0094 31 BRw 2$ ; 
en ea — 
0 6C 5 C CMPB CCAP), 3 : 1340 
| 


H 
sngsnise SMGSMISC = Miscellaneous routines for screen mg 16= 
1-012 SMGS$GET_BROADCAST _MESSAGE 1 

07 IF F 
"06 48 Boor 
8 B4 7 
ee 1 00 ? 
© AE HT Ooore 
0053 «BF 08 BS * 1 
14 cf 00089 
a ‘ if fd S88 
oc A2 3¢ 
33 ge i a9 
oc AC DS Q009F 
g ot a Ba 
04 6C 1 see 
10 AC D5 QOOAC 
04 13 OOAF 
68 10 A2 00 00081 
02 6¢ 91 00085 
08 AC D5 OOOBA 
OE 03 Q00BD 
0222 8F BB O00BF 
000000006 90 03 Fe 000C3 
8 AZ. BF agen 
= 8 5 tee 
s | RA Bes 
04 HA 5F OODE 
oe om AE BP 00ES 
1 6 £9 doors 
03 4 §§ OOEE 
50 F380 door4 
be 8 F7 
03 gC 1 F8 
07 if FB 
"08 98 gongs 
50 000000006 BF 50 : 
¢ 00108 


; Routine Size: 268 bytes, Routine Base: _SMGSCODE + 03F4 


Ps 


ep-1 
30. 1 


6$: 


7$: 


co 
bad 


o 
sad 


1 


1 
1 


O$: 


1$: 
2$: 


38 


a ¥3:09:58 


; (AP) 


~-o 


UND_FLAG 

, FINAL_STATUS 
#83 

(R2), 

(Re) RS 


FOUND FLAG 
2) FINAL. STATUS 


Te MmOCe-e-— ~w 

ty * he za 2zD~ 
Nm wor 
~ 


R2) 


( (RB) 
P), #2 
$ 

AP) 

$ 

4 


<R 


», 4(SP) 


#2, LIBSFREE_VM 
STATUS, 148 ~ 

FOUND FLAG, 11$ 

FINAL_STATUS, RO 

(AP), #3 

(AP) 

4 


(R7) 
#SMG$_NO_MORMSG, RO 


— + 
Wrow 
wr 


AX=-11 Bliss-32 V4.0-742 
SMGRTL.SRCJSMGMISC.632;1 


Pete Se Se Ge Se Se Se Se Ge Be Se Ge Se Se Se Se Se Be Se Be Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Fe Be Ge Be Fe Be Ge Se Se Se Be Be 


ke ek a at = I ts Ss 2 SS SS Ss SS 9 SS Ln 2s Ls 2 ) SS SY YS YH YY 


nO PREPPED MA & & 
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SMGSSOUT_OF BAND HANDLER © Generic outsofebond? lecsepa19a4 sh:09:46  FemGRte see ishemtse esse 9°22) 
14 1 ZSBITL ‘SMGSSOUT_OF BAND_HANDLER = Generic out-of-band handler’ 
14 1 GLOBAL ROUTINE SAGSSOUT_OF BAND_HANDLER ( 
Pe : ARG, RO, R1, PC? PSL ) = 
1698 1 44 
re ! FUNCTIONAL DESCRIPTION: 
1269 . 3 This routine processes an out-of-band AST. 
14 9 1} It runs at AST level. It logically gets called when the 
1471 1! user types an out-of-band character. 
ole 1! Actually, another routine actually gets called first 
Vel? ! } and then calls this one with the same argument List. 
1479 | CALLING SEQUENCE: 
1299 1! RET_STATUS.wlc.v = SMGSSOUT_OF _BAND_HANDLER ( 
1278 1! ARG. rz.v, 
1479 1! RO.rl.v 
re + 1! Ri.rl.v, 
1481 1! PC.ra.v, 
1086 : } PSL.rl.v) 
1484 1 | FORMAL PARAMETERS: 
1485 1! 
1o58 1! ARG character that was typed 
1487 1! RO register 0 at time of AST 
1488 1! R1 register 1 at time of AST 
1489 1! PC PC when AST occurred 
es ’ PSL contents of PSL at time of AST 
1498 ! IMPLICIT INPUTS: 
1494 1! Return PC on the stack. 
1495 1! We use this to determine who called us. 
1039 1! The address of the calling procedure is used to 
1497 1! enable us to locate the PBCB associated with the 
1238 : terminal that the out-of-band character was typed on. 
1300 1 IMPLICIT OUTPUTS: 
ee 1 i _ 
13 4 COMPLETION STATUS: 
13 ' SS$_NORMAL Normal successful completion 
1309 1 | 
1510 1 !e- 


i SIDE EFFECTS: 


$GET_FIELD_OFFSET(FIELD_REFERENCE) = 
RIF SLENGTH EQL 1 
RTHEN ZF IELDEXPAND(FIELD_REFERENCE,1) 
ZELSE FIELD_REFERENCE 
aFI 


q; 
+ 
ind out where this routine is going t 


F o ret 
That should be the RET at offset PBCB_B_RET 
routine that we built in our PBCB. 


POEOOQD MANNII 


urn to. 
in the AST 


4 
SMISC SMGSMISC = Miscellaneous routines for screen m 1b-se -1984 01:05: AX-11 Bliss-32 V4.0-742 P 1 
ate SMGSSOUT_OF __BAND_HANDLER - Generic out-of=band- 1 ~300 138% 94:93:38 SMGRTL.SRCJSMGMISC.B32;1 age 54) i 
3 } i } 1} BEGIN ; 
: ! oe ! 18 LOCAL 
: 157 1815 NEXT_PC, ! return PC address : 
3: 127 1 18 ! should point into PBCB : 
3: 127 151 PBCB : REF BLOCKC,BYTE), ' Gets the address of our PBCB ' 
: 127 1 18 é ! Gets our pasteboard id. : 
3: 1 151 BAND _INFO_BLOCK : BLOCKCSMG$S_BAND_INFORMATION_TABLE BYTE), , 
: 1281 1520 ' Band information table : 
; : ¢ : 1 STATUS; ! Local status : 
: Bs § EXTERNAL 
i 8 1598 PBD_A_PBCB : VOLATILE VECTOR; ! pasteboard directory ; 
; 1288 i ? BUILTIN : 
: : + : 3 FP; ! frame pointer ; 
i 1298 13 1 3 EXTERNAL LITERAL : 
3 1294 13 5 SMG$_FATERRLIB; ; 
; 1296 12 5 BIND FRAME = .FP  : BLOCKC,BYTE); ! Stack frame ; 
ie 3 
: 1299 1335 i Macro $GET_FIELD_OFFSET takes a field reference and replaces ; 
31 1539 ! it in the text stream by the offset represented by that reference. ; 
3 1 1540 ' (the first of the 4 items in the block structure reference). ‘ 
3 3 1541 ! This macro works whether the actual argument is a true ; 
3 1 1366 ' BLISS field name or if it is an SDL macro name. . 
3 1 154 ! The wey it tells the two apart is this: A field name will ‘ 
3 1 1544 ' be a single lexeme, while a macro as an actual argument will ; 
3; 1 1545 ! be expanded before invocation and will appear as 4 arguments. ‘ 
3; 1307 1368 !- 3 
3 1 154 3 
3 1 1548 MACRO . 
3 1 1363 F} 
3 1 1550 3 
; ! 13 1 : 
:1 13 : ; 
3 1 1 4 : 
i] HE : 
: Ht 3 
i] 1339 
; | 
| is 2 
| 138 ; 
;1 1869 ; 


RII IIT en utheaseo bee 
DWNOUL WN OOOO Swin—O0@ 
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FOF BAND CHANDLER © Genetic cutecfekand’ ieekepetond Seihoss «| FeMeAt Oc teg se ve. 05%S2, a9e 348 


5 SMISC 
OU 
NEXT_PC=.FRAMECSFSL_SAVE_PCI; 
1+ 
! By subtracting the offset of ‘‘PBCB_B_RET’’ we get the 
' address of the start of the PBCB for the terminal that 


12 


!' the out-of-band character was typed on. We have to 9° through 
' these machinations because there is no other was to fell 
which terminal caused the AST to trigger. 


PBCB=.NEXT_PC = SGET_FIELD_OFFSET(PBCB_B_RET); 


1+ 

! Perform some yak Setty checks to make sure that this is 
! really the address of a PBCB. If not, we just return 
! without ever calling the user's AST routine. 


S ak ak tat et a ab od ph ad ad ap ah eed 


WN "SO OONOAUS WN (OOD ONOAOUL WN “OVO ONOUESWN0O0 


RETURN SMG$_FATERRLIB; 


IF .PBCBCPBCB_B RET, * THEN 
* THEN RETURN SMGS_FATERRLIB; 


IF .PBCBLPBCB_B_ABS 


PB1D=.PBCBCPBCB_L_PBI 
IF .PBID GTRU PBD"K 
IF .PBD_A_PBCBC.PBID 


NE 
NE 
DI); 
MAX_PB THEN RETURN SMG$_FATERRLIB; 
] NEQ .PBCB THEN RETURN SMG$_FATERRLIB; 


AAI 


PAA PVIVIVIUIUIVT 


Call the user's AST routine as if the oretes were calling it 
directly. The difference is, though, that the first 

argument will be the address of an SMG BAND INFORMATION BLOCK, 
instead of just the character that was typed. 

If somehow no user routine was specified, we just return also. 


IF_.PBCBCPBCB_A_BAND_ROUTINE) EQL 0 


nO 


THEN RETURN “~SMG$_FATERRLIB 
BEGIN 


3 


ELSE 


a 
o 
u 


BIND ROUTINE 
USER_RTN = .PBCBCPBCB_A_BAND_ROUTINE]; 


Secs 


'+ 


SeSSSroNeS 


3 1 
: 1 
3 1 
3 1 
3: 1 
3; 1 
. % 
3 1 
3 1 
3 1 
3 1 
3 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3s 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
31 
3 1 
3 1 
3 1 
3 1 
3 1 
: 1 
3; 1 
a | 
3 1 
3 1 
3 1 
. 9 
21 


200 
° 1 
$08 
604 
5 
ety 
70 609 i Set up the band information block. 
nice ae 1 et 
58 ei BAND_INFO_BLOCKCSMG$L_PASTEBOARD_1D] = .PBID; 
74 61 BAND_INFO_BLOCKCSMGS$L_ARG) = -PBCBLPBCB_L_BAND_AST_ARGJ; 
75 614 BAND" INFO"BLOCKESMGSL~CHARACTER _' ' 
? 615 BAND 7 INFO~BLOCKESMGSB~ CHARACTER = ARG; 
78 eis STATUS=USER_RTN( BAND_INFO_BLOCK,.RO,.R1,.PC,.PSL ); 
79 018 IF NOT .STATUS THEN RETURN’ .STATUS 
ty oi? END; 
Be e RETURN SS$_NORMAL 
84 6 : END; 


4 
for screen mg 1$-Sep-1 
out-of-band 14-Sep-1 


AND HANDLER routine 


73:09:58 USMant osnedsmon! 


ne 


-EXTRN SMGS_FATERRLIB 


oO 
o 


OVUM ONNOCITITOCIU 9-90-9090 0 OOTNO 


50 00000000600 


0 
0 
0 


cos 
OVMiOF SP PPOOM DWDOOCOL-UV1i1>y—ONVIOOFO 


HOVIMOOO NO "WON OF OrWOCOMO 


FOOD "OFT OOOO LONON) $F ON S MONns 
oS SOoOoOoOoCoCOoOoOoOSooSo 
oOo SoOOSOSOSOOCOCOSOSOSOOCOOSCOOOOSOOoOOoOoOSoSoOoO 
COOCOCCOCOCSOSOOOCOCOOCOOOOOOOOCOoOoO 


o 
Ww 
bad 


+ 


So 
uw 


sugssouT. OF BAND_HANDLER, Save R2 
2 (Ep) NEXT_PC 
49(R6) Pete 
9(PBCBS, 
4(PBCB), #159 


pace) PBID 
wié 


-A_PBCBCPBIDJ, PBCB 
2(PBCB), R2 
#SMG$_FATERRLIB, RO 


PBID, BAND_INFO_BLOCK 
1 ia “BAND INFO BLOCK +4 
to 


tM 0 > PN 
eoers aBourar vo 
Sl ——~ 


) 
INFO_BLOCK+8 
BAND. RN BAM K+8 
p » @(SP)~ 
RO, -(SP) 
BAND INFO. BLOCK 
STATUS, 3$ 
#1, RO 


Bete Se Ge Oe Se Oe Ge Oe Be Se Se Se Se Se SESH Se ee SH Se Se ee ee Se Se Se Se Seas 
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1-012 SMGSSET_OUT_OF BAND. ASTS 9 er gekn 1382 95:08:88 = EeNGare speismemy se ages 298 (24) 
6 ZSBTTL "SMGSSET_OUT OF _BAND_ASTS' 
GLOBAL ROUTINE SMGSSET“OUT Yo BAND_ASTS ( 
58 PASTEBOARD_ID,P_CHAR TAASK, AST_RTN,AST_ARG ) = 


+ 
FUNCTIONAL DESCRIPTION: 


This routine enables new Fyi-a" snare characters to 

be accepted from the ° ec ified foraingl. If one of shore 
gnerecters is typed e specified AST routine gots ce led. 

See the RTL manual tor conventions on how AST routines set called. 
The first argynent to the The routine is the things f° 

band information table. table contains like 


WWMM A ANAWAAWAA 
BIER IOS 


99 the pasteboard id and the character that was 
BY The format and structure of this table is Seectibed in SMGDEF.SDL. 
o¢ CALLING SEQUENCE: 
RET_STATUS.wic.v = SnEsENAOLE OUT_OF pore LASTS ( 
STEBOARG_I6.rl.r, 
PecwAR OsRerie: 


AST_RTR.szem.r 
+ te ARG. rz.vJ) 


FORMAL PARAMETERS: 
PASTEBOARD_ID Pasteboard ID for terminal to be affected. 


P_CHAR_MASK ie ay! mask of which control characters 
to be the new out-of-band control characters. 
AST_RITN Address of AST routine to be called 
AST_ARG Optional value to be passed along to the ~ routine. 
It will appear as the second longword in the 


band information table. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 


Structure holding information about out-of-band AST routines 
gets updated. 


COMPLETION STATUS: 


TD DDD DS DDD DS TIE BS BB BB EEE PWN III innononononp 


NONE WIN 29 ODNOA NE WIN O OO NAU EWN 0 ODNAOU EWIDO ODN NEW  OOONOUS 


NORMAL Normal successful conplotten 
Snes o URONUMARG Wrong number of argume 
S$_xyz Any error possible — So10w 


SIDE EFFECTS: 


WAI IP OROPUNOPOOPo fof = = OOOO 
SSYEUFUSSSSSVEORON LS Sane nrun=oSeuenr 


ee ee ee ee Ss 
i a ed ad ad HL) 


BRERR RR EER PR REP PERPPPR EP EERRERPPP EPP PPPPEEE 
em ec me ee ee ee etd od od = 8 8 dd tt ed = = = = 


PARA AAAAAA AA AA AA AAA AAA AAA AA AAA AAA AA AAA AAA AAA AAA AAA AAA A AO 


i Se i 


= 
o 


ests 
; 144 


De Se Se Be Se Se Se Se Ge Se Be Fe Ge Ge Se Ge Fe Se Ge Se Ge Se Se Ge Ge Fe Ge Se Ss Se Se Ge Se Ss Se Ge Ge Se Ge Se Se Fe Se Se Sees Ss Se FH Se Se Se te Seeetece 


Ss 
= 
™~ 


PEO AO MINIT PPP 
MEW OVD ONOUS WI OVOONOouns 


SSSVEARLAN SS SANSA AN=SSHLF 


ee ee a ee ee ee ee ee a ee me a a ee ee ee a a ee ee a ed ed ed ed 
Mew 


BRR RRR RRP RRR ERR PEEP RPE ERP PPP REPRE PPP PEPE PPP PPP PPP PP PEE 


SSSSFeSss 


$3 
% 


WO CoCDODCoCOCDCOCDOCOCe—y CG? 


“Mm 
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- Miscellaneous routines for screen 16-Sep-1984 01:05: AX-11 iss- 
OUT_OF _BAND_ASTS rei. 12-80 8-138e 94:93:48 aNeRTL saeishe 


BEGIN 
BIND 


me 


S 


CHAR_MASK = .P_CHAR_MASK; 
LOCAL 


! Pasteboard control block 
aoores tor mas 


BLOcEC BYTE, 
oRC2], oc 
e figure 9-4 in I/0 manual. 


PBCB : REF 
MASK_BLOCK : VECT 
STATUS; 
BUILTIN 
ACTUALCOUNT; 
SSMGSVALIDATE_ARGCOUNT(3,4); 
i” Get the PBCB associated with this id and store it in PBCB. 


SSMGSGET_PBCB(.PASTEBOARD_ID,PBCB); 

'¢ 

Store the address of the user's AST routine in the PBCB. 
PBCBCPBCB_A_BAND_ROUTINE] = .AST_RTN; 


+ 
: Store his argument, if one was specified, or 0 if not. 


IF ACTUALCOUNT() EQL 4 
THEN tba pe i la =.AST_ARG 
ELSE PACBCPBCB_L_BAND_AST_ARGJ= 0; 


— a — woovdovovowo 
COWONAUSW—O” 


OOWONAUNE WN OOONAUE WN $9 OONOULS WN — 


; Store away the mask for goodness sake in the PBCB 
; and in our terminator mask block. 

: The first longword of the terminator mask block must be 0 
indicating that it is a short-form mask. 


PBCBCPBCB_M Pian 
= 
=. 


MASK BLOCRCO ; 
MASK~BLOCKE1J=. CHAR_MASK; 


IAI POPONPONINIPINININYD tS MOOOOOOOOOCOCOVWO 


sue the appropriate Q10. 
e AST routine to service the out-of-band character has 
eviously been bui.t in the PBCB at offset PBCB_Z2_CJT_OF_BAND_RIN. 
is handler actually resides within the PBCB. 
is of the form: 


ea ee ee ee ee a ee dd od dd 
NSS SSS SNS SINISE PAA AAAAAOAO OOOO OO OOOrnrn 


PRIPIRIPOPIPODPYPIPIPINIPINPIMIAMUNIPINIPIPIPIPIPOPIPIPININPIPINPIPIPIPIPIPIPIPUPUPIPIPIPIAIPUNIPIPIPUPUIPUPINUIPINIPIPD 


eee ee ee er 


MEUM —OOONOuUS wn — 


Www 
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Liss-32 V4.0- 
1-012 SMGSSET_OUT_OF _BAND_ASTS 14-Sep-19 SNGRTL SREISAG ; Page (235 


74 
MISC.B32;1 (25) 


3 1499 17 ! 0000 entry mask 
wm ie] oo ae 
: i 03 1735 add : pene os hn ges SMG$$OUT_OF _BAND_HANDLER 
4 : res ongword adcgaress oO 
: 1504 1741 5 | 64 ORET® —— 
eRe gi 
: 1809 P 1744 2 STATUS=$Q10W( CHAN = -PBCBEPBCB_W_CHANJ, 
> 1508 P 1745 EFN = {PBCBCPBCB-B-ASYNC.EFNJ 
: 1509 P 1246 FUNC = 10$ SETHODE OR IO$M~OUTBAND 
: 1319 P 174 P1 = PBCBLPBCB_7_OUT_OF_BAND_RTNI, 
: 1 1748 P2 = MASK_BLOCR)? 
; 181 1750 2 RETURN .STATUS 
> 1514 1751 
: 1515 1752 1 END; 
0000 00000 .ENTRY SMGSSET_OUT_OF_BAND_ASTS, Save nothing : 1625 
SE 08 ce 00002 SUBL2 #8, SP : 
50 6C 03 8 00005 SUBB3 «#3, (AP), DIFF + 1696 
01 50 91 00009 CMPB) sé, #1 : 
08 18 9000¢ BLEQU ; 
50 000000006 &F Bo QO0E OVL #SMG$_WRONUMARG, RO ; 
50 04 BC dO $0018 1$ MOVL § @PASTEBOARD_ID, RO > 1702 
11 19 OOO1A BLSS : 
000000006 00 50 01 O01¢ CMPL RO, PBD_L_COUNT ; 
08 14 000 BGTR 2 ; 
08 000000006 00 50 £0 00025 BBS RO, PBD_V_PB_AVAIL, 3$ ; 
50 000000006 &F BO 00 p 2$: MOVL #SMG$_INVPAS"1D, RO : 
50 0000000060040 00 900 5 38: MOVL §PBD_A pacBt RO] PBCB ; 
0098 CO 0c ac 00 005) MOVL AST-RTN, 152(PBCB) : 1708 
04 6C 91 9004 CMPB CCAP, #4 > 1714 
08 12 0046 BNEQ ; 
009c = c0 10 AC 00 0004 MOVL §AST_ARG, 156(PBCB) + 1715 
04 11 OO4E BRB : 
009¢ CO D4 00050 4s: CLRL  156(PBCB) : 1716 
00A0 CO 08 BC dO O94 5$: MOVL @P_CHAR_MASK, 160(PBCB) + 1725 
6E D4 A CLRL MASK BLOCK : 1726 
04 AE 08 BC b0 O5¢ MOVL § @P_CRAR_MASK, MASK_BLOCK+4 : 1727 
E 7C 0006 CLRQ = = (SP) : 1748 
7E 7C€ 0006 CLRQ = =(SP) : 
1 AE OF PUSHAB MASK BLOCK ; 
008¢ ¢ of PUSHAB 140(PBCB) ; 
— 7C C CLRQ = =(SP) ; 
7E D4 CLRL  =(SP) ; 
7E 0423 BF 3C MOVZWL #1059, -(SP) : 
7E 64 Ad € 0007 MOVZWL 19 (PCB), =(SP) : 
43 67 AO 9A 0007 MOVZBL 103(PBCB). -(SP) : 
000000006 0 OC FB 00070 CALLS #i2, SYS$Q10W ; 
04 00084 RET : 1752 


sngsnisc sncen 


sre $C Miscellaneous routines for screen mg 1b-5e gen7 138% o}: 93: 1g AX-11 B a oh oenle .0-742 


] 
ET_OUT_OF __BAND_ASTS -Sep-1 SMGRTL.SRCIJSMGMISC.B32; 1 


; Routine Size: 133 bytes, Routine Base: _SMGSCODE + 056A 


d 5 
SMGSMISC SMGSMISC = Miscellaneous routines for screen mg 19-50-1938 94 :03:] AX-11 Oh fegeze V4.0-742 Page 48 
1-012 SMGSENABLE _UNSOLICITED_INPUT 14-Sep-1984 13:09:5 SMGRTL.SRCJSMGMISC.B32;1 (26) 
; 1517 1753. 1 XZSBITL "SMGSENABLE_UNSOLICITED_INPUT' 3 
: 1518 1754 1 GLOBAL ROUTINE SMGSENABLE_UNSOCICITED_INPUT( 5 
; 1519 1755 1 PASTEBOARD_ID,AST_RTN,AST_ARG) = 3 
; 1520 17 § 1 3 
; 1521 17 1 !4+ : 
; : ¢ i? 3 : FUNCTIONAL DESCRIPTION: : 
: 1524 1760 1! This routine enables calling of an AST routine upon ; 
; 1525 1761 1! receipt of unsolicited input on the specified terminal. : 
3 15 § 1706 1 ! The AST routine gets called with 2 arguments: 3 
: 15 1765 1! PASTEBOARD_ID.rl.r and AST_ARG.rz.v. Note that no input 3 
3; 1528 1764 1! chara ters are read. It is up to the user to read the 3 
3; 1529 1765 1 ! unsolicited input using normal SMG input routines ; 
3 1 1798 : (or cancel the type-ahead). : 
: 15 ‘ 1768 | i CALLING SEQUENCE: ; 
3 35 1769 1! 3 
3; 15 1770 1! RET_STATUS.wlc.v = SMGSENABLE_UNSOLICITED_INPUT( ; 
; 1535 1771 1! PASTEBOARD_ID.rl.r, ; 
3; 1536 1776 1! AST_RIN.szem.r 5 
; 1537 1775 1! C, AST_ARG.rz.vJ) PF 
; 1538 1774 1! 3 
3; 1539 1775 1 ! FORMAL PARAMETERS: 3 
; 1540 1776 1! 3 
3 1541 1777 1! PASTEBOARD_ID Address of pasteboard id for terminal to : 
3 154 1778 1! be affected. > 
3; 154 1779 1! : 
3 Ho: 1780 : AST_RIN Address of AST routine to be called : 
: 1546 1782 1! AST_ARG Optional value to be passed to AST routine. ; 
3 1547 1783 1! : 
3: 1548 1784 1°! IMPLICIT INPUTS: ; 
3; 1549 vee 3 3 
3; 1550 1786 1! NONE : 
3 155% 1787 1! ; 
3; 155 1788 1 ! IMPLICIT OUTPUTS: 5 
3; 335 1789 1! $ 
3: 1554 1790 1! Internal tables get updated. 
3 1339 1791 1! 
3 1336 1736 1 ! COMPLETION STATUS: 
3; 155 1793 1! 
3; 1558 1794 1! SS$_NORMAL Normal successful completion 
3; 1559 1795 1! SMG$_WRONUMARG Wrong number of arguments 
: 1560 17 1! S$_xyz Any error possible from $Q10W 
3; 1561 1797 1! 
3 1296 1798 1 ! SIDE EFFECTS: 
3; 156 1799 1! 
3; 1564 1800 1 !-- 


— — = _— — 


ieee 
ngi2 SRERPLSE = DUasttetnegUyWpayt ines for screen an tE-sepnt9gy OU: gs:16  yaKett BL ss4=32 YEO? Pee oF) 


} 1 BEGIN 
§ BUILTIN 


NULLPARAME TER; 
LOCAL 

PBCB : REF $PBCB_DECL, 
| 
| 
| 
| 
| 
j 


~——- 


STATUS; 
EXTERNAL LITERAL 

SMG$_NOT_A_TRM; 
SSMGSVALIDATE_ARGCOUNT (2,3); 
S$SMGSGET_PBCB(.PASTEBOARD_ID,PBCB); 


1+ 
! Make sure that the device is a terminal. 
If not, return the qualified success, SMG$_NOT_A_TRM. 


OOOO NNN NS SIO Oo 
WN" OVCONOULWN—O0@ 
et at ot td = tt I I OOOOO 


DWONOUL WN" OVOONOAUW 


IF_.PBCBCPBCB_B_CLASS) NEQ DC$_ TERM 
THEN RETURN ~SMG$_NOT_A_TRM; 


+ 
If we don't already have a mailbox established, 
then create a new channel to the terminal with an 
associated mailbox. 


PPP PASSA SSSI SITIO 


SSSLSSRANLSESELSAL 


ar 5 WLASYNC_CHAN] EQL 0 
STATUS=INITIALIZE MAILBOX(.PBCB); 
IF NOT .STATUS THEN RETURN .STATUS 


33S 
wn 


32 


1+ 
Note that unsolicted input is enabled. 


ao 
SsSs 


M—OOONOUNEWN-O0an 


PBCBCPBCB_V_UNSOLICITJ=1; 
t+ 
Store the (possibly new) AST routine and argument in our PBCB. 


PBCBCPBCB_A_UNSOLICIT 
IF caenAn TERCAST 
THEN BLPBCB_L_ 
ELSE PBB PBCB-L_UN 


RETURN SS$_NORMAL 
END; 


lie. »AST_RIN; 
OLICIT +} me 
OLICIT= ARG -AST_ARG; 


Se Se Se Se Ge Be Se Se Se Se Se Se Ge Se Sse Se Se Se Se Se Se Ge Ge Be Fe Ge Se Se Fe Ge Sse Ge Ge Se Se Ge Fe Se Se Se Ge Fe Se Se Se Se See Se Se Se Se See Ssesse 
me ee me me ee mm ee a a ak a ed ed dd od dd = = od od 2 = = = = = = 
ee ee ee ee ee eee SS S| 


PAPAAPOOOOAAOAOAAD 
NOUS WN OOO NOUS WIN OOO 


PROPOR ot et et ot ot ot 2 


eneo eous £ bayt ines for screen mg 16- se0-19 386 O1: 93: 1g AX-11 Bliss-32 V4.0-742 Page 30 


sngsaisc SMGSMISC 
TED. SMGRTL.SRC SMGMI $C.B32;1 


ISC = Mi 
SMGSENABLE _ 


Miscellan 
UNSOLIC 


00 4 0 06 .ENTRY SMGSENABLE_UNSOLICITED_INPUT, Save R2 : 1754 
50 6¢ 0 §UBB3 #2, (AP), DIFF + 1816 
1 0 06 CMPB) sé, #1 : 
18 BLEQU 1 : 
50 000000006 F yi : apy 4SMG$_WRONUMARG, RO 3 
50 04 at 9 a 1$: MOVL GPASTEBOARD_ID, RO ; 1818 
1 BLSS s 
000000006 00 D1 019 CPL RO, PBD_L_COUNT 
08 000000006 90 Ed 0 3 BBS RO, PBD_V_PB_AVAIL : 
0 000000006 &F BO OA 28: MOVL #SMGS_IRVPAS~ID, bs 5 ; 
52 000000096004 DO 00032 3s: MOVL  PBD_A pececrgl, PBCB : ; 
42 BF A 9 90 A CPS 88 (Pate) ; 1825 : 
50 000000006 8F pO 0004) MOVL —ASMGS_NOT_A_TRM, RO ; 1826 : 
00D2 i 83 9049 4$: Ist * ste ; 1834 ; 
2 DD O004F PUSHL + 1836 ; 
FC4O CF or FB 00051 CALLS INITIALIZE _MAILBOX : 
24 0 E 0056 BLBC af : 1837 
00p0 _¢ 02 88 00059 Ss: BISB2 $6cP + 1844 
00c0 ¢ 08 aC b0 OO>E mov et ERIN, Pree tpace) ; 1850 
05 1F 00067 BLSSU : 
OC 08 93 oooee te 
00C4 C3 p4 006E 6$: CLRL 196 (PBCB) 1852 
00c4 3 0c AC DO 00074 7$: MOVL AST_ARG, 196(PBCB) : 1853 
5 01 BO 007A 8S: MOVL  #1,7RO + 1855 
4 0007D 9$: RET : 1857 


; Routine Size: 126 bytes, Routine Base: _SMGSCODE + OSEF 


oO 


Oo 
MFurv 


Le 


2 OD CD CD OD CD OD Cd CD CD Cd OD CD CD CD CD OD CD CD CD CD 
60 69 C9 C9 09 09 08 SII NI SINS NS SII IO OO 


ODONAOUES WN $0 ODNOULS WN COO 


s 


SSSSSSSS STOLE ST ET EET POORER, 
SODBNOVEWN $O OONOULS WN OOO MEAN" OOONOUSE 


See Se Se Se Be FH Se Oe Se Se Se Oe Se Os Oe Oe Se Se BH Se Se Se Se BH Se Oe Oe ee OH Oe OH Se Oe Se Se ee 
a ee i ed ed ed od od od dd 


aan a a a tt = 2 2 8 2 = 2 2 a a ss SS a 2 a a a 


2.00 00 09 Co C9 CD Co 
ooovo 


fun 


+ 


Misc 


e UNS us routines for screen mg 18-Sep-1984 93:03:16 
R 


D_INPUT 14-Sep-19 


BITL 


Llaneo 
LICITE 
oth ate eer WeroL Ci Tee INPUT’ 
LOBAL ROUTINE SMGSDISABLE_UNSOCICITED_INPUT( 
PASTEBOARD_ID) = 


> 
FUNCTIONAL DESCRIPTION: 


This routine disables unsolicited input ASTs for the 
specified terminal. 


CALLING SEQUENCE: 


RET_STATUS.wlc.v = SMGSDISABLE_UNSOLICITED_INPUT( 
PASTEBOARD_ID.rl.r) 


FORMAL PARAMETERS: 


PASTEBOARD_ID Pasteboard id for terminal to 
be affected. 


IMPLICIT INPUTS: 

Internal tables. 
IMPLICIT OUTPUTS: 

Internal tables get updated. 
COMPLETION STATUS: 


S$S$_NORMAL Normal successful completion 
SMGS_WRONUMARG Wrong number of arguments 
S$_xyz Any error possible from $Q10W 


SIDE EFFECTS: 


SMGMISC.B32;1 


| 
eee 


rat et 


aa 


$$ 


STATUS 


teneou ous ‘npur ne’ for screen mg 


EXTERNAL LITERAL 


: i 


REF S$PBCB_DECL, 


SSMGSGET_PBCB(.PASTEBOARD_ID,PBCB); 


'¢ 


TRS 8 


SESESSSR 


et at st st os SS ss SS SS ss Ss SS Ss ss YS 


POOSAAAO 
DWOODOODOOOOOOOOOOOODOVNOONO 


POPIPUNPINIPIPININY —* 4 OO 


DWNAVUESWN —"OOBVNOUS WN "O0O@ 


wOOO0OO 
VePwn— 


000000006 
08 000000006 


42 


PBCBCPBCB_V_UNSOLICIT 
PBCB PBCB_A_UNSOLICIT 
PBCBLPBCB_L_UNSOLICIT 


S 

5 

BEGIN 

LOCAL 

PBCB 
SMG$_NOT_A_TRM; 
SSMGSVALIDATE_ARGCOUNT (1,1); 
RETURN SS$_NORMAL 

1 


i Make sure that the device is a terminal. 
If not, return the qualified success, SMGS _NOT_A_TRM. 


If _.PBCBCPBCB_B_CLASS) ee TARE TERM 
THEN RETURN 


“SMG$_NOT_ M; 


'¢ 
; Note that unsolicted input is disabled. 


J=0; 
“ARGI=0, 


So 
So 
io 
o 


01 

50 000000006 
50 04 
00 


> WV0VN-—-D WOE 
200 *ORMO—2 OO 


i 000000006 
a ebteeed | eet 


50 000000006 a 
co 


SRMAAUS MIAO 


WOO —0VOUOM—0—900—0 
> FOW OCR OCOR OOF Ow 


02 
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SMGSDISABLE_UNSOLICITED_INPUT, Save nothing 
(AP), #1 


#SMG$_WRONUMARG, RO 
@PASTEBOARD_ID, RO 
RO, PBD_L_COUNT 

2 


RO, PBD.V_PB_AVAIL 
#SMGS_IRVPAS"ID, bg ° 


A pecece j], PBCcB 
eacPace). # ye 
#SMGS_NOT_A_TRM, RO 
#2, 208(PBCB) 


sngeeisc 


; Routine Size: 


SMGSMISC = Miscel 


SMGS$DISABLE _ 


82 bytes, 


¢ 
UNS 


Oi 


la 
Ic 


ne 
IT 


e0u 
De 


s rou 
INPU 


50 


Routine Base: 


t 
T 


5 
ines for screen mg 14. -Sep-1984 


14-Sep-19 


“ 


=SMGSCODE + 0660 


CL 


MOVL 
RET 


AX-11 BLi 


73:05:58 SMart ose 


RQ 192(PBCB) 
“i, RO 


RCIA 


32 V 
SmGMIS 


$298 


7 
83 


4 
231 


Q 


| 
' 
—_ —__. 


SM 


< 
SMISC SMGSMISC = Miscellaneous routines for screen m tbs -1984 01:05: AX-11 Bliss-32 V4.0-74 Pp 4 SM 

inet) SMGSSSET_ TERM. CHARACTERISTICS 9 7rek~ TRS Phi83:te = PaMchT Skies se ve 08 rs2 age 335 
; 1697 XSBTTL 'SMGSSSET TERN HARACTERISTICS' 
: 169 GLOBAL ROUTINE SAGSSSET_ TERM CHARACT RISTICS ( 

PBID, ON CHARACTERIST CS1, ON CHARACTERISTICS2, 

OFF CHARACTERISTICS » OFF_CHARACTERISTICS2, 

P"OLD_CHARACTERISTICS1, P_OLD_CHARACTERISTICS2 ) = 


le 


FUNCTIONAL DESCRIPTION: 
This routine changes the terminal characteristics 


FWWAWANII Wir 


SSLESLANVLS 
—OOONAULS WOO 


SOSSSCOO SELL LS PLCS cc eceeocc]e 


FORMAL PARAMETERS: 


SLSLSSSSS 
WN SO OONAUE WIN SO OOVNOufwn 


a os 


ts to turn on in Ist characteristics 
ts to turn on in 2nd characteristics 
bits to turn off in 1st characteristics 


precepeere id 
bi 


for a given pe teboard. 
It also establishes an exit handler that will restore 
19 2 the characteristics back to what they were on image exit. 
1 2 CALLING SEQUENCE: 
13 7 RET_STATUS.wic.v = sneseset TERA CHARACTERISTICS ( 

ef Pe 
18 4 /ON_CHARACTERISTICS1.rl.v 
1 4 ~ON_CHARACTERISTICS2.rl.v 
18 5 ,OFF_CHARACTERISTICS1.rl.v 
19 5 ,OFF ed be) bleed le 
0 5 »P_HANDLE .wl.r 
1 5 Pont poem atieateri ite eet ct 
§ ; »P_OLD-CHARACTERISTICS2.wl.rJ) 
4 5 
5 
5 D.rl.r 
5 ON_CHARACTERITSICS1.rl.v 
6 CHARACTERITSICS2.rl.v 
6 OFF_CHARACTERITSICS1.rl.v 
6 OFF CHARACTERITSICS2.rl.v 

P_HANDLE.wl.r 


bits to turn off in 2nd characteristics 
longword to receive ‘‘handle’’ for 

this request. This handle value may 

be used to refer back to this 

request ina sussoquens call to 
SMGSSREVERT_CHARACTERISTICS. 


Se Se Se Ge Be Ge Se Se Be Se Se Se Fe Ge Fs Ge Se Se Ge Ge Ge Ge Ge Se Se Ge Se Fe Ge Ge Ge Ge Ge Se Fe Se Se Ge Ge FH Se Se Se Se Se Se Fe Ge Se Se ee Se Se Se Se tee 
ee a ec ee ee a ed a od 2d od 2 ed 
SSNS SSS SSNS SSNS NN SNS SS SSSI SSSI SISO 

me a aa i i a tk a a a ts a 8 2 
ce em em ed ed ed = od od do dd od od mw 


96 
43 P_OLD_CHARACTERISTICS1.wl.r gets old characteristics (part 1) 
389 P_OLD_CHARACTERISTICS2.wl.r gets old characteristics (part 2) 
4 44 IMPLICIT INPUTS: 
23 378 Terminal characteristics 
tg 975 IMPLICIT OUTPUTS: 
4s 378 
“2 4 NONE 
of $79 COMPLETION STATUS: 
49 981 S$S$_NORMAL Normal successful completion 
50 9 ¢ SMGS_NOT_A_TRM Success - but device is not a terminal 
2} 9 LIBS_xyz Errors from LIBSGET_VM 
26 oae SS$_xyz Errors from SDCLEXH or $Q10W 


sneer 
SMGS$$S 


19 § 1! SIDE EFFECTS: 
ie i 


Sette 


Riscellanee 


K 
routines for screen mg 1 


RM SEHARACT ERIST Cs 1 


aoe 
~ep-1 


Bc 13:09:58 


AX-11 B 
SMGRTL. 


sneisnanisc- 


=742 
Isc. 8 2:1 


roe 


ines for screen mg 1B-seo-1984 01:05:16 AX-11 BL isg-32,v4.0-742 Page = SH 


; SMISC 
-Sep-1 SMGRTL.SR 1S¢.832;1 (31) 


- Mi 
3 f scellane 


neou 
TERM_CHARACTER 


BEGIN 
BIND 


Aun 
OOo 


y Sy th 


| 


HANDLE = .P_HAN 
OLD_ CHAR = :P7OLD 
OLD=CHAR = :P7OLD 
EXTERNAL LITERAL 


SMG$_NOT_A_TRM; ! Device is not a terminal (success) 


Oo 

uw 
oOo 
00000 


33 


SSeas 


LOCAL 


: REF BL orKe BYTE], Pasteboard control block 
: VECTORL4,WORDJ, i 1/0 status block 
! Address of exit block 

IT_BLOCK/4] 

L 

! Ol 


S 
E 
PBCB ' 
TTIOSB 
EXIT_BLOCK ! 
: REF VECTORCSMGSS_CHAR_EX : 
OLD_CHARBUF : BLOCK 1e7BYTET, ' Old characteristics buffer 
CHAR1 1) 
CH 
ST 


Oooo —s 4 


OONAUIL WN 


oo ooo 


D 
° ! Old characteristics (part 
ne Old characteristics (part 2) 


SSNS SSS 


BUILTIN 
NULLPARAME TER; 
EXTERNAL ROUTINE 
LIBSGET_VM; 


COONAN 
WN" O0OONOULSWwh— 


hey te 


RRORORORONoPONonononoronononononofnung 3 es 


Be Se Ge Se Se Se Ss Se Se Se Se Se Se Se Se SF Se Se ee Se Se Se See Se Sete Sesese 
Ok a kd a a 
CSOOOooooooooooooooooo 


SANS 
2 
ONOULSWN—O 


te) 
~ 


oOo 
MEW — 


te 
: OR in the new characteristic bits requested on. 


oo 


C200 
& 


IF NOT NULLPARAMETER(2) 
THEN PBCBCPBCB_L BF YOERENO Je 
-PBCBCPBCB_L_DEVDEPEND] OR .ON_CHARACTERISTICS1; 


IF NOT NULLPARAMETER(3) 
THEN PBCBCPBCB_L 4044} ed 
-PBCBLPBCB_L_DEVDEPEND2) OR .ON_CHARACTERISTICS2; 


on 


MEWN—O0® 


'¢ 
! AND out the characteristics bits requested off. 


S 


MEW —OO0® 


a 5 
MGSMISC SMGSMISC = Miscellaneous routines for screen mg 16-Sep-1984 01:05: AX-11 Bliss-32 V4.0-742 
ets SHGSSSET_TERM, CHARACTERISTICS ere ets rR et ee eee ths Rica ian re 
; 1789 1 '¢ 
: 1030 6 Get the pasteboard control block from the pasteboard id. 
: 179 
; 1338 SSMGSGET_PBCB(.PBID,PBCB); 
1538 gf 15 
: 179 i Check that the output device is really a terminal. 
: 1599 0 § ! If it isn't then, Poturn qualities ourcess. 
ee 
; 1309 8 ? IF _.PBCBCPBCB_B_CLASS] NEQ DC$_TERM 
3; 180 THEN BEGIN 
P4 1806 8 § IF NOT NULLPARAMETER(7) 
: yt O32 THEN OLD_CHAR1=0; 
: 1805 035 IF NOT NULLPARAMETER(8) 
3 19 8 § THEN OLD_CHAR2=0; 
: 1808 038 RETURN SMG$_NOT_A_TRM 
3; 18 039 
3 ee 040 END; 
AB BB 
; 1818 $08 i Save the old cheracteristics buffer. 
ABS Bi gS 
> 1816 046 CHSMOVE (12,PBCBCPBCB_R_CHARBUF ],0LD_CHARBUF ); 
wa BEG, 
: 1819 049 i Get the old characteristics and return them to the user 
; 1820 050 ! if he asked for ther. 
3 \s 1 B23 le 
> 1k : $3 CHAR =. PBCBEPBCB.L _DEVDEPEND]; 
i ip 4 094 CHAR2=.PBCBLPBCB_L_DEVDEPEND2); 
> 1826 096 IF NOT NULLPARAMETER(7) 
3 \% i FH THEN OLD_CHAR1=.CHAR1; 
$ 1829 059 2 IF NOT NULLPARAMETER(8) 
: \3 ° Bey THEN OLD_CHAR2=.CHAR2; 
:1 ; 
: 1888 3 
3 1834 
3 ! 35 
3 3$ 
31 3 
3:1 
3 1 
3 1 
3; 1 
: 
3 1 


NNN 


ooo 


N 5 


SMGSMISC SMGSMISC = Miscellaneous routines for screen mg 16-Sep-1984 AX=-11 Bliss-32 V4.0-742 Page 58 SF 
wt SMGSSSET_TERM. CHARACTERISTICS Raat y a CS ee ere tg Pere eae a 9¢ 535 
7 ee 

:4 48 rs IF NOT NULLPARAMETER (4) 

3; 186 7 THEN PBCBCPBCB Babe 434434 " wee 

; 1329 0 » P DEVDEPEND] AND (NOT .OFF_CHARACTERISTICS1); 
; 1852 o ; IF NOT NULLPARAMETER(S) 

3; 185 THEN PeceLrecs | etettts ae woe? 

: \e2e 8 : P EVDEPEND2] AND (NOT .OFF_CHARACTERISTICS2); 
: 1896 $ 14 

: HH tt4 é Set the terminal to have the desired new characteristics. 

: 1859 

; 1860 P $88 STATUS=$010W( CHAN = sPocerrace W_CHAN), 

3: 1861 P ba) FUNC = 10$_SETMODE, 

3 1906 P 2092 10SB = 111038 

> 186 P 2095 Pi = ALE PBCB_R_CHARBUF J, 

3 1864 094 P2 : 12); 

; 1865 095 2 IF NOT .STATUS THEN RETURN .STATUS; 

; 1866 096 2 IF NOT .TTIOSBCO] THEN RETURN . TTIOSBLO); 

; 186 097 

3; 1868 098 '¢ 

3 139) 4 t Create an exit block to be used to set the characteristics back. 

> 1871 101 

3 136 19¢ STATUS=LIBSGET_VM(ZREF (SMG$S_CHAR_EXIT_BLOCK) ,EXIT_BLOCK); 

3 1e07 193 IF NOT .STATUS THEN RETURN .STATUS; 

: 1875 108 1+ 

3 1378 198 i Sive the user back the address of this exit block as the ‘‘handle’’. 

: 1878 10 

; 1879 199 IF NOT NULLPARAMETER(6) 

; 130 119 THEN HANDLE=.EXIT_BLOCK; 

: 1882 118 '+ 

3 1884 ae Set up the exit block. 

: 1885 115 2. 

3; 1886 i EXIT_BLOCK(COJ=0; ' reserved for use by VMS as forward Link 
3; 1887 11 EXIT-BLOCKC1 =CHAR —EXIT_HANDLER; i | opectty our exit handler 

3; 1888 11 EXIT ~BLOCK KtS)= ! x arguments 

3 1383 11 EXIT-BLOC = iat -BLOCK{4); ; store reason in next entry in exit block 
3 Y 1 EXIT~BLOCKTS ! Gets reason for exit 

; 199) ! 4 EXIT. BLOCK(5J= =. PBCBLPBCB. WL CHAN]; ! "totaal channel 

; 1898 ! § | _Longwords 6.7.8 form a 12-byte characteristics buffer. 

: 1895 5 CHSMOVE (12, OLD_CHARBUF ,EXIT_BLOCKL6)); 

: 4 39 1 $ 1+ 

; ' M4 ; 3 t Declare an exit handler using this exit block. 

:1 130 2 

3; 1901 131 STATUS=$DCL me we DE oe =.EXIT Tite 

; 1902 132 IF NOT .STATUS THEN RETURN .STATUS 


6 
MGSMISC SMGSMISC = Miscellaneous routines for screen m 1s -1984 705: AX-11 
at SMGSSSET_TERM. CHARACTERISTICS pitti 1e-8ep-19 4 93:8 ‘18 SMGRTL 
; 1903 133 
: 1904 134 RETURN SS$_NORMAL 
; 1905 135 
: 1906 136 1 END; 


~EXTRN SYSS$DCLEXH 


01FC 00000 ENTRY SHGSSSET_TERM CHARACTERISTICS, Save R2,R3,- ; 1930 
5 1c ¢ 9902 SUBL2 #26, SP : 
06 BC D MOVL aPBiD, RO + 2023 
11 19 00009 BLSS 1$ : 
000000006 00 30 D1 90008 CMPL RO, PBD_L_COUNT : 
08 14 0001 BGTR _—1$ : 
08 000000006 00 50 £0 00014 BBS RO, PBD_V_PB_AVAIL, 2$ : 
50 000000006 8F Bp 0016 1$: MOVL #SMGS$_INVPAS"1D, RO : 
57 0000000060040 00 00024 2s: MOVL §§_PBD_A_PBCBCRO], PBCB F 
42 BF $8 (A? O91 00 C CMPB  =s« BB (PBB), #66 + 2030 
22 13 00031 BEQL : 
07 6C 91 00033 CMPB ss CAP), -#7 + 2032 
08 Ff 00036 BLSSU F 
1C aC D5 0038 TSTL BAP) : 
03 13 0003B BEQL : 
1c «BC ps 00030 CLRL § @P_OLD_CHARACTERISTICS1 : 2033 
08 6c 91 00040 3$: CMPB Ss CA), BB > 2035 
08 1F 0004 BLSSU 4$ F 
20 AC 05 00045 STL  32¢AP) : 
03 13 00048 BEQL ; 
20 BC D4 0004A CLRL  @P_OLD_CHARACTERISTICS2 > 2036 
50 000000006 8F 0 00040 4$: HOVL #SAG$_NOT_A_TRM, RO : 2038 
08 AE 58 OA? 0c 28 00055 S$: MOVC3 #12, 88(PBCB), OLD_CHARBUF + 2046 
50 5c 6A? 7D 00058 MOVO 92(PBCB), CHAR + 2053 
0 6C 91 D005 CMPB Ss AP), #7 : 2056 
09 1F 00062 BLSSU F 
1c) OAC D3 0064 TSTL 28(AP) ; 
4 13 00067 BEQL ; 
1c = BC 0 pO 00069 MOVL § CHARI, @P_OLD_CHARACTERISTICS1 : 2057 
08 6c 91 0060 6$: CMP (AP), #8 : 2059 
09 1F 000 BLSSU ; 
20 AC D 7 TSTL (AP) ; 
4 1 7 BEQL ; 
20 BC 1 p 7 MOVL § CHAR2, @P_OLD_CHARACTERISTICS2 + 2060 
2 C 91 00078 7$: CMPB Ss CAP), #2 > 2066 
A 1F 0007 BLSSU : 
08 A p Ist (AP) : 
5c A? 08 AC BISL2 ON_CHARACTERISTICS1, 92(PBCB) + 2068 
03 C § A 8$ CMPB. ss (AP), #3 : 2070 
A iF D BLSSU ; 
oc A b F TST 12(AP) : 
60 A? oc ke 3 Beet > ON. CHARACTERISTICS2, 96(PBCB) : 207 
04 6C = $99 9$: CMPB. sé AB), #4 : 3078 
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Routine Base: 


323 bytes, 
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Be ee Se Se Se Ge Se Ge Se Se Se Ge Se Ge Ge Se Se Ge Se Se Se SHS Se Se Se Se Se Se Se Se Se Se Se esesees 
be eS ds —) 2s 2» 2s 5 2» 5 2) > as 2) is a —) — 2 9 2 — 3 >  _s > — 5 4 4 5 ts 
DOODOOOOODOOODOOOOOODODODDOODODOODOOOODODOOOOO 


Det ee eh ke hk 


+ 
FUNCTIONAL DESCRIPTION: 


This routine is established as an exit handler. 
It restores the terminal to it's previous characteristics. 


CALLING SEQUENCE: 
RET_STATUS.wic.v = CHAR_EXIT_HANDLER( P_EXIT_BLOCK.rab.r) 

FORMAL PARAMETERS: 
P_EXIT_BLOCK.rab.r 


dD 6 

MGSMISC = Miscellaneous routines for screen ng 19300" 198% 93:03:16 AX-11 Bliss-32 V4.0-742 Page ¢ 
HAR_EXIT_HANDLER = exit handler to reset termi 14-Sep-1984 13:09: SMGRTL.SRCIJSMGMISC.832;1 (33) 

ZSBITL "CHAR_EXIT_HANDLER = exit handler to reset terminal sherect ristics' 

ROUTINE CHAR_EXIT_HANDLER(RSN_ADR,RSN,CHAN,CHARBUF : VECTOR(3,LONGJ) = 

14 

: 

' 


as set up 44 
ERMINAL_CHARACTERISTICS 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 
Errors are ignored. 
SIDE EFFECTS: 
Previous terminal characteristics are restored 


POPIPOPYPIPPYININYIPININIPYDIPIPYPIPINIPIPINPYPIPIPIPIPIPIPUPIPUPIPINPINININY Ow 


tt a et a ss = 4 a a = ts a ss a . Ls a 1 ts 


SND DS DS OD DD TIT BB BE PA 
a kk kk tt YD 


WR OOO NAUNE WN O OONAULS WN OCONOUS WN OOON 


a ne TT ooo, 


sngeaise lLaneous routines for screen m 16- se-1984 9}: 3: 1g AX-11 Bliss-32 V4.0-742 Page 62 Sm 


scel 
T_HANDLER = exit handler to reset term -Sep- SMGRTL.SRCJSMGMISC.B32;1 (34) 


Ss 
x 
BEGIN 
BIND 
CLASS = CHARBUF : BYTE; 
LOCAL 
STATUS; 
1 


erify that the device class to be restored is DCS$_TERM. 

f not, just go away. 

ive no error, since this is an exit handler 

f it is a terminal, then restore the old cherectertetics. 


SPS 


IF .CLASS EQL DC$_TERM 
THEN $Q]0W( CRAN 
FUNC 


Pi 
P2 


RETURN SS$_NORMAL 
END; 


SF 
vvv 


CHAN 
ios SETHODE, 
CHARBUF 


Se Se Se Se Oe Ge Se Be Oe Se ee Se Se Se Fe Se Se Se Se Se ee Se Se Se eee 

Ot st ot Ss Ss SS SS Ss SS SS SS Ss 

~~ PUPA PDIVIVIVIVIUA E & 

—-oo WRC OONOULWN—OOW 
PIPIPOIPOPYIPIPYPIPIPININPIPIPINPINPIPIPINIPINPINPIPINININ = OW 


0000 00000 CHAR nat LES 


ORD Save nothing : 2138 
42 BF 10 ac 91 0000 CMPB = CLASS, #66 > 2191 
1A 12 0000 BNEQ 1$ : 
7E 7C 00009 CLRQ = = (SP) + 2195 
7E 7C 00008 CLRQ = = (SP) : 
OC DD 0000D PUSHL #12 ; 
10 AC 9F O000F PUSHAB CHARBUF : 
ze 7¢ 6 12 cLRa = ; 
7E 23 7D 00014 Ova #35, -(SP) ; 
0c AC DD 00017 PUSHL ; 
000000006 fe Pe ole Sees ei svssar0w : 
98 gf 00 35 1$: MOVL #-'RO ; 3197 
4 00026 RET : 2199 


; Routine Size: 59 bytes, Routine Base: _SMGSCODE + 0802 


MGSMISC SMGSMISC = Miscellaneous routines for screen m 16-Sep-1984 9: 03 18 AX-11 Bliss-32 V4.0-742 Page $5 
-012 CHAR_EXIT_HANDLER = exit handler to reset termi 14-Sep-1984 9: SMGRTL.SRCJSMGMISC.B32;1 (35) 
1973 00 1 EN 
1974 $50) 0 ELUDOM 
-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
_SMGSCODE 2089 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, Steg hott fs 
“SMGSDATA 4 NOVEC, WRT. RD JNOEXE.NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
woecee== Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
_8255$DUA g: SYSLIBJSTARLET.L32;1 9776 44 0 581 00:00.9 
“E522 EDUA SMGRTL. bee ecer ie resis 36 4 8 8 00:00.1 
“$255$DUA28: CSMGRTL.OBJJSMGLIB.L32;1 469 4 1 38 00:00.3 
COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:SMGMISC/OBJ=OBJ$:SMGMISC MSRC$:SMGMISC/UPDATE=(ENH$: SMGMISC) 
: gtoos 200? coge + 4 data bytes 


: they Tine: 6 302.0 
; Lines/CPU Min: 
: ey oe fade | 21217 


Used: 182 pages 


; et Complete 
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